Question

Помогите!
Вычислите сумму квадратов чисел одномерного массива К размером [5], заданного генератором случайных чисел.​

Answer 1

Ответ:

var

 K:array [1..5] of integer;

 sum :integer;

begin

 sum := 0;

 for var i := 1 to 5 do begin

   K[i] := random(100);

   sum := sum + (K[i] * K[i]);

 end;

 write(sum);

end.