Найти сумму всех элементов массива

Question

Autoalex · Accepted Answer

Vara: array [1… 100] of integer; i,s: integer; k: real; beginRandomize; k: =0; for i: =1 to 20 do begin a[i]: =random (150)+150; k: =k+a[i]; write (a[i],'); end; k: =k/20; s: =0; for i: =1 to 20 do if a[i]<k then s: =s+a[i]; writeln; writeln ('Ср. Арифм=',k); writeln ('Сумм эл-тов массива <K ',k,'=',s); end.

Найти сумму всех элементов массива

Задание:

Решение: