Z
Zevsnet
Всем доброе время суток!!
Будьте так любезны помогите написать программу
Дана целочисленная матрица размера M x N. Вывести номер ее первой1|последней2 строки3|столбца4, содержащего максимальное количество одинаковых элементов.
Я понял это задание так:.. что нужно с двумерной матрицы вывести номер первой строки и первого столбца, и вторая часть программы это вывести последнею строку и последний столбец.. и при этом чтобы строка содержала максимально количество одинаковых элементов...
Пожалуйста помогите написать вот эту часть!...
Код:
Будьте так любезны помогите написать программу
Дана целочисленная матрица размера 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.