Question

Найти сумму положительных чисел массива X, состоящего из Nэлементов.

Answer 1

const n=20;
var x : array[1..n] of integer;
   i, s : integer;
begin
Randomize;
 writeln('Исходный массив:');
for i:=1 to n do
 begin
  x[i]:=random(101)-50;
  write(x[i],' ');
 end;
writeln;
s:=0; 
for i:=1 to n do
 if x[i] > 0 then s:=s+x[i];
writeln('s=',s);
end.

Пример:
Исходный массив:
23 1 44 21 -27 32 4 29 -25 18 -33 -30 -34 -14 38 -6 20 12 -24 -21 
s=242