СРОЧНО!ПАСКАЛЬ!! 30 БАЛЛОВ В двумерном массиве 4х4 определить количество чётных...

Question

СРОЧНО!ПАСКАЛЬ!! 30 БАЛЛОВ
В двумерном массиве 4х4 определить количество чётных отрицательных элементов на главной диагонали матрицы.

Answer 1

Int a:array[1..4, 1..4] of integer;
i, j, k: integer;
begin
k:=0;
for i:=1 to 4 do
  for j:=1 to 4 do begin
readln(a[i, j]);
If (i=j) and (a[i] < 0) and (a[i] mod 2 = 0) then
k:= k+1;
end;
writeln(k);
end. 

Comments

Почему?

---

нужно только на главной диагонали искать

---

условие i = j будет оставлять элементы на главной диагонали

---

var int a:array[1..4, 1..4] of integer;
i, j, k: integer;
begin
k:=0;
for i:=1 to 4 do
  for j:=1 to 4 do begin
readln(a[i, j]);
If (i=j) and (a[i] < 0) and (a[i] mod 2 = 0) then
k:= k+1;
end;
writeln(k);
end. 

---

не идет

---

var a:array[1..4, 1..4] of integer;
i, j, k: integer;
begin
k:=0;
for i:=1 to 4 do
  for j:=1 to 4 do begin
readln(a[i, j]);
If (i=j) and (a[i, k] < 0) and (a[i, k] mod 2 = 0) then
k:= k+1;
end;
writeln(k);
end. 

---

Вот это идёт

---

var a:array[1..4, 1..4] of integer;
i, j, k: integer;
begin
k:=0;
for i:=1 to 4 do
  for j:=1 to 4 do begin
readln(a[i, j]);
If (i=j) and (a[i, j] < 0) and (a[i, j] mod 2 = 0) then
k:= k+1;
end;
writeln(k);
end.  

---

это

---

не полное решение