Question

заполните числовой массив из 20 элементов таким образом,чтобы значения элементов были равны квадратом индекса(в паскале)

Answer 1

var

   i:integer;

   m:array[1..20] of integer;

 

begin

   for i:=1 to 20 do

   begin

      m[i]:=i*i;

      writeln(m[i]);

   end

end.