Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.