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

Question

Информатика

Рима

11 августа, 13:52

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

+3

Ответы (1)

Знаете ответ?

Августина · Answer 1

Var a:array[1 ... 100] of integer; i, n:integer;

begin

a[1]:=1;

writeln ('Введите n - количество элементов') ;

read (n) ;

for i:=2 to n do

a[i]:=a[i-1]+2;

writeln ('Полученный массив:') ;

for i:=1 to n do

writeln (a[i]) ;

end.