Информатика=) / Паскаль / 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.