Информатика=) / Паскаль / 2 лаба

program K2;
var
  a: array[1..20,1..20] of integer;
  n,m,i,j,k: integer;
begin
  k:=0;
  write('Введите размер матрицы n, m: ');
  readln(n,m);
  writeln('Исходная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(199)-99;
      write(a[i,j]:4);
      if (i mod 2=0)and(a[i,j]<0) then inc(k);
    end;
    writeln;
  end;
  writeln;
  writeln('СЧСМОЭ: ',k);
end.