Заполнить массив из 15 элементов первыми натуральными нечетными числами и распечатать в столбик

Question

Информатика

Мироша

20 ноября, 13:26

Заполнить массив из 15 элементов первыми натуральными нечетными числами и распечатать в столбик

+5

Ответы (1)

Знаете ответ на вопрос?

Петуха · Answer 1

var

a:array [1 ... 15] of integer;

i:byte;

begin

a[1]:=1;

writeln (a[1]) ;

for i:=2 to 15 do begin

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

writeln (a[i]) ;

end;

readln;

end.