Question

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

Answer 1

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.