Дан одномерный массив, подсчитать количество отрицательных и сумму положительных членов массива — Pascal(Паскаль)

program mas;

uses crt;

var
const
  n = 10;

type
  matrix = array [1 .. n] of integer;

var
  a: matrix;
  i: integer;
  kol1: integer;
  kol2: integer;

begin
  clrscr;
  randomize;
  for i := 1 to n do
  begin
    a[i] := random(10) - 5;
    write(a[i], ' ');
  end;
  writeln;
  writeln;
  kol1 := 0;
  kol2 := 0;
  for i := 1 to n do
  begin
    if a[i] < 0 then
      inc(kol1)
    else
      inc(kol2);
  end;
  writeln(kol1);
  writeln(kol2);
  readln;

end.

Leave a Comment

73 + = 83