Дан массив. Найти количество отрицательных четных элементов, кратных 7.var a:array[1..10,1..10] of integer;i,m,n,j: integer; s,k:real;beginWrite (m=);readln(m);write(n=);readln(n);for i:=1 to m do for j:=1 to n do begin write(a[,i,,,j,]=);readln(a[i,j]); end;for i:=1 to n do begin for j:=1 to m do write(a[i,j]:4); writeln;end;For i:=1 To m Do Begin For j:=1 To n Do Begin k:=0; If ((a[i,j]

Вроде всё нормально, кроме того, что в цикле, где выводится матрица, надо поменять местами m и n, и строки k := 0 и вывод k надо вынести из цикла.