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

Question

Информатика

Соломонида

8 августа, 05:22

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

+5

Ответы (1)

Знаете ответ на вопрос?

Агафангел · 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.