Question

Дан массив. найти количество отрицательных четных элементов, кратных 7. var a: array[1..10,1..10] of integer; i,m,n,j: integer; s,k: real; begin write ('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]< 0)and ((a[i,j]mod 2) = 0)and (a[i,j] mod 7 = 0)) then k: =k+1; end; writeln('k=',k); end; end. что тут неправильно ?

Answer 1

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