СРОЧНО!ПАСКАЛЬ!! 30 БАЛЛОВ
В двумерном массиве 4х4 определить количество чётных отрицательных элементов на главной диагонали матрицы.
Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
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.
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.
Ответ дал:
0
Вот это идёт
Ответ дал:
0
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.
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.
Ответ дал:
0
это
Ответ дал:
0
не полное решение
Вас заинтересует
1 год назад
6 лет назад