нужна помощь!!!

[Devil25]

Помогите с задачей, пожайлуста.
Суть такая: составить программу на языке Pascal. Вычислить сумму отрицательных и количество положительных чисел в последовательности данных чисел.

[Ramzey]

Ну сколько можно, блин...

Код: Выделить всё

USES Crt;
CONST
  N=50;
VAR
  ABC  : array [1..N] of integer;
  i    : byte;
  Sum,Kol_vo : integer;
BEGIN
  randomize;
  clrscr;

  writeln('ishodnyi massiv ABC, zadan sluchaino:');
  for i:=1 to N do
    begin
      ABC[i]:=random(100)-50;
      write(ABC[i],' ');
    end;

  Sum:=0;
  Kol_vo:=0;
  for i:=1 to N do
    begin
      if ABC[i]<0 then Sum:=Sum+ABC[i];
      if ABC[i]>0 then Kol_vo:=Kol_vo+1;
    end;
  writeln;
  writeln('summa otricatel`nyh: ',Sum);
  writeln('kolichestvo polozhitel`nyh: ',Kol_vo);
  repeat until keypressed;
END.

[BBB]

Во, блин, Devil25 в две темы продублировал задачу!
http://forum.developing.ru/showthread.php?t=10030

[Devil25]

Спасибо за задачу!!!