процедуры

[Ruslan57]

1.Даны 3 целые матрицы 4*4. Вывести ту из них где больше нулевых строк. через процедуры.
2. дана матрица 5*5 найти наибольший элемент и убрать столбец и строку в котором он находится. тоже через процедуры
(паскаль)

[Alex Cones]

Сделаю за 100 р. Стучат в асю.

[IT-man]

Сделаю за 100 р. Стучат в асю.

Аналогично....

[Ruslan57]

Сообщение от IT-man

Аналогично....

умники я это делаю для себя так что идите лесом.
собственно нужен хотябы пример как сделать.

[IT-man]

собственно нужен хотябы пример как сделать.

google.ru+поиск по форуму , Умник!

[Alex Cones]

Можешь искать дальше, может через месяц найдешь.
Все готово, обе задачи. Пароль - 100 рублей.

[Ruslan57]

Сообщение от IT-man

google.ru+поиск по форуму , Умник!

если я сюда обратился значит ничего подобного не нашёл.
просьба больше не флудить в теме.

[ОДИНОЧЕСТВО В СЕТИ]

я это делаю для себя

Ну так показывайте чего наделали!

[Ruslan57]

ну вот впринципе 2е. только не знаю как удалить строку и столбец где он находится

Program Max;
type  mas=array[1..50,1..50] Of  Integer;
var   a:mas;
  max,min,i,j,n: Integer;
procedure opred(a:mas; n:integer; var max:integer);
var i,j:integer;
begin
max:=a[1,1];

for i:=1 to n do
For j:=1 To n Do

begin
if max<a[i,j] then
max:=a[i,j];

end;
end;

begin
writeln('введите кол-во элементов матрици');
readln(n);
for i:=1 to n do
For j:=1 To n Do
begin
write('x',i,j,'=');
readln(a[i,j]);
end;
opred(a,n,max);
writeln('максимальный элемент=', max);

End.

[ОДИНОЧЕСТВО В СЕТИ]

ну вот впринципе 2е.

Ну и где вы определяете номер строки и столбца где находится max ?