У ковбоев гарри и вилли еть собственное ранчо, на котором они выращивают кактусы. ранчо иммеет вид прямоугольника из n строк и m стобцов на пересечении которых растут кактусы (по 1 вкаждой колетке). утром гарри проехал по каждому горизонтальному ряду и выстрелил из револьвера в самый высокий кактус (или несколько) вилли по вертикальным рядам ии стрелял в самые низкие (или несколько)
на следующий день ковбои узнали что кактус засыхает от 2 выстрелов. Напишите программу которая определяет сколько кактусов погибло
вход. данные: в первой строке написано 2 натур числа n и m кол-во строк и столбцов на ранчо соответсвенно не больше 1000
в каждой следующей строчке написаны высоты кактусов на ранчо высота не превышает 1000
вывод: одно число сколько кактусов на ранчо погибло\
1)ввод: 2 1
1
2
вывод: 1
2) ввод: 3 4
2 2 3 3
1 2 3 4
4 5 6 4
uses crt;
Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;
Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);
if (M>1000) or (N>1000) or (M<1) or (N<1)
then
Writeln('Ошибка, указанные значения выходят за пределы матрицы') else
Begin
Writeln('Введите элементы матрицы');
k:=0;
for i:=1 to N do
for j:=1 to M do
Begin
readln(mas[i,j]);
if (mas[i,j] mod 2 = 0) then k:=k+1;
end;
Writeln();
Writeln('Исходная матрица');
for i:=1 to N do
Begin
for j:=1 to M do
Begin
Write(mas[i,j], ' ')
end;
Writeln();
end;
Writeln();
Writeln('Количество четных элементов = ',k);
end;
readln;
end.