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

kiert kiert    2   14.02.2020 12:21    0

Ответы
xrxrxrxrxr xrxrxrxrxr  11.10.2020 04:42

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика