Обработка массивов с использованием подпрограмм

[фалькон]

Напишите пожалуйста программу...
Ввести матрицы Х(nx,mx) и Y(ny,my) . В матрицах найти максимумы, которые
вывести. Преобразовать каждую матрицу, уменьшив её положительные
элементы на значение максимума другой матрицы. Исходные и
преобразованные матрицы вывести на экран. (При решении реализовать
процедуры ввода и вывода массивов: Vvod2m(A,N,M,Name),
Vivod2m(A,N,M,Name) и Zamena(A,N,M,Vichet) – уменьшение
положительных элементов матрицы на величину Vichet, а также функцию
Maximum(A,N,M):<тип массива> – поиск максимума)

[Stilet]

А сам пробовал хоть как-то? ато ведь можно написать так что у твоего преподавателя не останется сомнений что тебе ставить )))

[фалькон]

Нет, я совсем не пойму как написать код на эту задачу
Stilet, если можете, напишите пожалуйста код, а я по нему более менее постараюсь разобраться...

[Stilet]

Ух ты как... Хорошо. Я предлагаю тебе следующий код:

const n=10;m=10;
type aa= array [1..n,1..m] of integer;
var x,y:aa;m1,m2:integer;

 function Maximum(A:aa):integer;var i,j:integer;
 begin
  for i:=1 to n do begin
   for j:=1 to m do begin
    if Maximum<a[i,j] then Maximum:=a[i,j];
   end;
  end;
 end;

 procedure  Vvod2m(A:aa;max:integer);var i,j:integer;
 begin
  for i:=1 to n do begin
   for j:=1 to m do begin
    a[i,j]:=random(100);
   end;
  end;
 end;

 procedure  Vivod2m(A:aa);var i,j:integer;
 begin
  for i:=1 to n do begin
   for j:=1 to m do begin
    Write(a[i,j]:5);
   end; writeln;
  end;writeln;
 end;

 procedure Zamena(A:aa;Vichet:integer);var i,j:integer;
 begin
  for i:=1 to n do begin
   for j:=1 to m do begin
    if a[i,j]>0 then a[i,j]:=a[i,j]-Vichet;
   end;
  end;
 end;


begin
 Vvod2m(x,m1);Vivod2m(x);
 Vvod2m(y,m1);Vivod2m(y);
 Zamena(x,Maximum(y));Zamena(y,Maximum(x));
 Vivod2m(x);Vivod2m(y);
  { TODO -oUser -cConsole Main : Insert code here }
 readln;
end.

Он вполне работоспособен за некоторым исключением... Каким? Почитай учебники о параметрах процедур и ты поймешь.

[фалькон]

спасибо!) буду разбираться