Question

Сформируйте одномерный массив из 4 элементов ( значения элементов зависит от порядкового номера массива и вычисляется по формуле i^2). Вычислить сумму значений элементов одномерного массива.

Answer 1

Var a:array[1..4] of integer;
i, sum:integer;
Begin
  for i := 1 to 4 do begin
     a[i]:= i*i;
     sum := sum + a[i];
     writeln(a[i]);
  end;
  writeln(sum);
End.