Создать одномерный массив целых случайных чисел в интервале от - 10 до 25 в количестве из 30 элементов. Распечатать данный массив, вычислить сумму положительных элементов 2 и 3 массива.

Var

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

i, n, sum: integer;

begin

n : = 30;

writeln ('Данные массива:') ;

for i : = 1 to n do

begin

a[i] : = random (35) - 10;

write (a[i], ' ') ;

end;

writeln () ;

sum : = 0;

for i : = 1 to n do

if a[i] > 0 then

sum : = sum + a[i];

writeln ('sum = ', sum) ;

end.