Матрицы: поиск максимумов, преобразования - Задача по Pascal ABC

[Light!]

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


Моя прога:

program L2;
uses crt;
const MaxRazm = 10;
type T1m=array[1..sqr(MaxRazm)] of integer;
     T2m=array[1..MaxRazm,1..MaxRazm] of integer;
     TName=string[5];
var X1,X2,X3:T2m;
    Y:T1m;
    N1,N2,N3,Ny:byte;
    max1,max2,max3,MinOfMax,MaxOfMax:integer;
/// ввод двумерного массива ///
procedure Vvod2m(var A:T2m; var N:byte; const Name:TName);
var i,j:byte;
begin
  writeLn('вводите массив ', Name,':');
  write('размерность массива N=');
  readLn(N);
  for i:=1 to N do
    for j:=1 to N do
      begin
        write(Name,'[',i,',',j,']=');
        readLn(A[i,j]);
      end;
end;

/// вывод двумерного массива ///
procedure Vivod2m(const A:T2m; const N:byte; const Name:TName);
var i,j:byte;
begin
  writeLn('выводим массив ', Name,':');
  for i:=1 to N do
    begin
      for j:=1 to N do
        write(A[i,j]:5);
      writeLn;
    end;
end;

/// поиск максимума в двумерном массиве ///
function Maximum(const A:T2m; N,M:byte):integer;
var max:integer;
    i,j:byte;
begin
  max:=A[1,1];
  for i:=1 to N do
    for j:=1 to M do
      if A[i,j]>max then
        max:=A[i,j];
  Maximum:=max;
end;


/// уменьшение положительных элементов на значение максимума другой матрицы ///




????? (




/// вывод одномерного массива ///
procedure Vivod1m(const A:T1m; const N:byte; const Name:TName);
var i:byte;
begin
  writeLn('Выводим одномерный массив ', Name,':');
  for i:=1 to N do
    write(A[i]:5);
  writeLn;
end;

begin
  /// вводим массивы ///
  Vvod2m(X1,N1,'X1');
  Vvod2m(X2,N2,'X2');
  Vvod2m(X3,N3,'X3');

  /// выводим массивы до преобразования ///
  /// ищем максимумы в массивах ///
  Vivod2m(X1,N1,'X1');
  max1:=Maximum(X1,N1,N1);
  writeLn('max1=',max1);
  Vivod2m(X2,N2,'X2');
  max2:=Maximum(X2,N2,N2);
  writeLn('max2=',max2);
  Vivod2m(X3,N3,'X3');
  max3:=Maximum(X3,N3,N3);
  writeLn('max3=',max3);
end.

Максимумы находятся) Помогите завершить прогу и, если можно, то по подробнее объяснить, что и как =)



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Pein95]

ну я кода не читал: чтоб уменшыть пол. елементы матрицы на максимальный елемент другой пишем вот такое:

for i:=1 to n do
if a[i]>0 then a[i]:=a[i]-max

вот собственно все

[Light!]

Спасибо, но помоги вставить это в прогу, у меня не получается

[Vanta11a]

Спасибо, но помоги вставить это в прогу, у меня не получается

Делаешь процедуру, в ней прогоняешь цикл по массивам уменьшая их, все просто.

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

[Light!]

Прога действительно не самописная. Попыток разобраться в ней было не мало. И все же прошу вас помочь с завершением программы

[Vanta11a]

Тебе надо добавить процедуру Zamena(A,N,M,Vichet), в которую подавать соответствующие параметры.
Ну и в процедуре прогон по матрице (А), которую передал в процедуру, с изменением значения элементов на, опять же, переданное значение (Vichet).

[Light!]

Vanta11a
не разобрался
объясни подробнее пожалуйста

[Light!]

Народ помогите пожалуйста сделать программу, мне до четверга нужно

[Light!]

Все, млять, сам сделал -_-