Ответы и объяснения

  • BiFi
  • отличник
2014-03-16T19:39:33+04:00
Program qq;
Var A:array[1..10] of integer;
i:integer;
Begin
for i:=1 to 10 do begin A[i]:=i;
                        writeln(A[i]);
                         end;
readln;
end.