Developing.ru

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

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.