Question

Помогите дам 35 баллов
Составить программу ввода состоящего из 8 элементов массива по формуле a(i)=i*i

Answer 1

var

 i: integer;

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

 

begin

 for i := 1 to 8 do

   a[i] := i * i;

 // проверим

 for i := 1 to 8 do

   write(a[i], ' ');

end.