Написать прогрумму, которая заменяет массив А нечетными натуральными числами от 1 до N (N вводится с клавиатуры)

Question

Георгич

14 июня, 05:08

+3

Ответы (1)

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

Ливия · Answer 1

Var

i, n:integer;

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

begin

readln (n);

i:=1;

while i<=n do

begin

a[i]:=i;

write (a[i],' ');

i:=i+2;

end;

end.