Дано целое число N (> 0). Сформировать и вывести целочисленный массив размера N, содержащий N первых положительных нечетных чисел: 1, 3, 5, … .- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
CLS
Again: INPUT "Vvedite n : ", n
          IF n > 0 THEN  ELSE GOTO Again
  '  Формируем и заполняем целочисленный массив
DIM A(n) AS INTEGER
FOR i = 1 TO n
  A(i) = i + i - 1
NEXT i
  '  Вывод
FOR i = 1 TO n
  PRINT A(i);
NEXT i

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment