Дан массив. Найти количество отрицательных четных элементов, кратных 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.

Что тут неправильно?

Question

Маргуша

11 октября, 04:27

+4

Ответы (1)

Знаете ответ на вопрос?

Гедимин · Answer 1

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