помогите пожалуйста,очень-очень нужно это решение!!

ЗАДАН МАССИВ, СОСТОЯЩИЙ ИЗ N ЭЕЛЕМЕНТОВ. НАЙТИ СУММУ ЕГО ПОЛОЖИТЕЛЬНЫХ ЭЛЕМЕНТОВ.

2

Ответы и объяснения

2013-03-04T15:56:20+04:00

var a:array[1..1000] of integer;

i,s,n:integer;

begin

randomize;

readln(n);

s:=0;

for i:=1 to n do begin

a[i]:=random(200)-200;

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

end;

writeln(s);

end.

  • Tlalok
  • почетный грамотей
2013-03-04T16:09:36+04:00

var a:array[1..1000] of integer;

i,s,n:integer;

begin

randomize;

write('N = ');

readln(n);

s:=0;

for i:=1 to n do

begin

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

  if (a[i] > 0) then

    s:=s+a[i];

end;

writeln('Сумма равна', s);

readln;

end.