Объявить массив из 10 элементов разделе констант. определить их значение случайными числами от -5 до 75. найти сумму положительных элементов.

235

482

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

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

ruslankz02

Информатика

4,5(57 оценок)

Const n=10; var i,sum: integer; mass: array[1..n] of integer; begin for i: =1 to n do begin mass[i]: =random(80)-5; write('mass[',i,']= ',mass[i]); writeln; if mass[i]> 0 then sum: =sum+mass[i]; end; writeln('сумма положительных элементов массива равна ',sum); end.