Question

Створити і вивести масив з квадратів перших 10 чисел.

Answer 1

program Massiv;
uses
  crt;
var
  a: array[0..9] of integer;
  i: integer;
begin
  clrscr;
  for i:=0 to 9 do
     a[i]:=sqr(i+1);
for i:=0 to 9 do
     writeln('a[',i,']=',a[i]);
  Readln;
end.