Question

Найти сумму положительных элементов массива А(1:25).

Помогите пожалуйста!!

Answer 1

массив заполняется автоматически

Pascal

var

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

 i, s: integer;

begin

 s:=0;

 randomize;

 for i:=1 to 25 do begin

   a[i]:=random(100)-50;

   write(a[i], ' ');

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

 end;

 writeln();

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

end.