Напишите программу на языке программирования паскаль в результате выполнения которого получалась сумма всех элементов массива

196

310

Посмотреть ответы 3

Ответы на вопрос:

Дидог

Информатика

4,8(2 оценок)

// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n=',50); a.println; writeln('s=',a.sum) end. пример n= 13 -33 4 19 46 -23 19 -32 31 -10 48 -13 -32 -10 s=14

DAYH228

Информатика

4,8(71 оценок)

Var a: array [1..20] of integer; i: integer; sum: integer; begin sum: =0; for i: =1 to 20 do begin a[i] : = random(20); write(a[i],' '); sum: = sum+a[i]; end; writeln(); writeln('сумма всех элементов : ',sum); end.