Question

составьте программу заполнения массива

Answer 1

program mas;
var a:array[1..10] of integer;
i,p:integer;
begin
p:=1;
for i:=1 to 10 do
begin
a[i]:=p;
p:=p+2;
writeln (p);
end;
end.