Question

Написать програму заполняющий массив из 10 нечетных чисел. В паскале​

Answer 1

var

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

i : integer;

begin

for i:=1 to 10 do

   begin

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

   write(a[i],' ');

   end;

end.