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

Кеня

7 июня, 09:14

+5

Ответы (1)

Знаешь ответ?

Иннушка · Answer 1

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