Найди сумму положительных элементов массива, заданных генератором случайных чисел от -30 до 40.

a[i]: = random (70)-30​

var i,s: integer;

a: array [1..10] of integer;

begin

write('Массив ');

for i:=1 to 10 do

begin

a[i]:=random(71)-30;

write (a[i]:4);

if a[i]>0 then s:=s+a[i]

end;

writeln;

write('Сумма положительных элементов массива ',s)

end.

Объяснение:

a[i]:=random(71)-30 если от -30 до 40 включительно

A[i]:= random (70)-30 если от -30 до 39 включительно

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 ArrRandom(n, -30, 39).Println.Sum.Println;

end.