Заполнить массив из 15 элементов первыми натуральными нечетными числами и распечатать в столбик
Заполнить массив из 15 элементов первыми натуральными нечетными числами и распечатать в столбик
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы