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

Question

Информатика

Веселина

20 сентября, 17:29

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

+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.