• B правой части каждого сообщения есть стрелки и . Не стесняйтесь оценивать ответы. Чтобы автору вопроса закрыть свой тикет, надо выбрать лучший ответ. Просто нажмите значок в правой части сообщения.

  • Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby

    1. Цифровая криминалистика и реагирование на инциденты
    2. ОС Linux (DFIR) Старт: 16 мая
    3. Анализ фишинговых атак Старт: 16 мая Устройства для тестирования на проникновение Старт: 16 мая

    Скидки до 10%

    Полный список ближайших курсов ...

Двумерные массивы (матрицы)

  • Автор темы Zevsnet
  • Дата начала
Z

Zevsnet

Всем доброе время суток!!
Будьте так любезны помогите написать программу

Дана целочисленная матрица размера M x N. Вывести номер ее первой1|последней2 строки3|столбца4, содержащего максимальное количество одинаковых элементов.

Я понял это задание так:.. что нужно с двумерной матрицы вывести номер первой строки и первого столбца, и вторая часть программы это вывести последнею строку и последний столбец.. и при этом чтобы строка содержала максимально количество одинаковых элементов...
Пожалуйста помогите написать вот эту часть!...

Код:
Код:
const
n=5;
m=5;
s=n+m;

var
mass:array[1..n,1..m]of integer;
i,j:integer;
nomer:byte;
begin
writeln('Матрица M x N: ');
for i:=1 to m do
begin
for j:=1 to n do
begin
mass[i,j]:=random(s);
write(mass[i,j]:9);
//readln(mass[i,j]);
end;
writeln;
end;
{-----------------------------------------}
writeln;
writeln('-----------------------------------------');
writeln('1:Вывести номер ее первой строки и первого столбца, содержащего максимальное количество одинаковых элементов');
writeln('2:Вывести номер ее последней строки и последнего столбца, содержащего максимальное количество одинаковых элементов');
writeln('-----------------------------------------');
{-----------------------------------------}
writeln;
write('Введите номер задания: ');
read(nomer);
case nomer of 
1:begin
??????????????
??????????????
?????????????? 
end;

2:begin 
??????????????
??????????????
?????????????? 
end;
else writeln('Error! Plis restart!!!');
end;

end.
 
N

nayke

задача более сложная чем у вас с кодом.. Кто ищет, тот..
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!