Процедуры и функции - Заданы три двумерных массива одинаковой размерности. Написать фукнции и процедуры их обработки

[sekirei]

Заданы три двумерных массива одинаковой размерности. Организовать ввод и вывод на экран массивов с использованием процедур программиста.
Найти сумму нечетных по значению элементов каждого массива, используя функцию программиста.
В том массиве, где эта сумма больше всего, поменять местами максимальный и минимальный элемент массива. Обмен осуществить при помощи процедуры.

Помогите написать программу, в благодарность 100 руб кину на мобильник)

[Mad_Cat]

type Tmatrix = array[1..100, 1..100] of integer;
var a, b, c: Tmatrix;
  col, row: integer;
  a1, b1, c1: real;

procedure InputMatrix(var M: Tmatrix; _col, _row: integer);
var i, j: integer;
begin
  for i := 1 to _col do
    for j := 1 to _row do
    begin
      write('[', i, ',', j, ']=');
      readln(M[i, j]);
    end;
  Writeln('========================================');
end;

procedure OutputMatrix(var M: Tmatrix; _col, _row: integer);
var i, j: integer;
begin
  for i := 1 to _col do begin
    for j := 1 to _row do
      write(M[i, j]: 4);
    writeln;
  end;
  Writeln('========================================');
end;

function SumODD(var M: Tmatrix; _col, _row: integer): real;
var i, j: integer;
  s: real;
begin
  s := 0;
  for i := 1 to _col do
    for j := 1 to _row do
      if odd(M[i, j]) then s := s + M[i, j];
  SumODD := s;
end;

function MyMax(a, b: real): real;
begin
  if a > b then Mymax := a
  else Mymax := b;
end;

procedure Swap(var a, b: integer);
var t: integer;
begin
  t := a; a := b; b := t;
end;

procedure SwapMaxMin(var M: Tmatrix; _col, _row: integer);
var i, j: integer;
  imax, imin, jmax, jmin: integer;
begin
  imax := 1; jmax := 1;
  imin := 1; jmin := 1;
  for i := 1 to _col do
    for j := 1 to _row do begin
      if M[i, j] > M[imax, jmax] then begin imax := i; jmax := j; end;
      if M[i, j] < M[imin, jmin] then begin imin := i; jmin := j; end;
    end;
  Swap(M[imax, jmax], M[imin, jmin]);
end;
begin
  write('Row='); readln(row);
  write('column='); readln(col);
{=========================================}
  InputMatrix(a, col, row);
  InputMatrix(b, col, row);
  InputMatrix(c, col, row);
{=========================================}
  writeln('==============BEFORE============');
  OutputMatrix(a, col, row);
  OutputMatrix(b, col, row);
  OutputMatrix(c, col, row);

{=========================================}
  a1 := SumODD(a, col, row);
  b1 := SumODD(b, col, row);
  c1 := SumODD(c, col, row);
  if MyMax(a1, MyMax(b1, c1)) = a1 then SwapMaxMin(a, col, row)
  else
    if MyMax(a1, MyMax(b1, c1)) = b1 then SwapMaxMin(b, col, row)
    else
      SwapMaxMin(c, col, row);
{=========================================}
  writeln('==============AFTER============');
  OutputMatrix(a, col, row);
  OutputMatrix(b, col, row);
  OutputMatrix(c, col, row);
{==========================================}
  readln;
end.

[sekirei]

стукнул, стукнул)

[ZX Spectrum-128]

Почему я Mad_Cat'у плюсик не могу поставить?

[Mad_Cat]

Почему я Mad_Cat'у плюсик не могу поставить?

потому что система автонакрутки работает

[ZX Spectrum-128]

А что за система? В help'e не написано про отзывы. Мне пишет, вы не можете тра-ля-ля, пока не поставите отзыв другому пользователю.
Другим плюсики я уже ставил.

[Mad_Cat]

Другим плюсики я уже ставил.

надо десятерым и не обязательно +, можно и -

[Serge_Bliznykov]

Сообщение от Mad_Cat

потому что система автонакрутки работает

система АНТИ накрутки

надо десятерым и не обязательно +, можно и -

про минусики верно, а вот про десятерых - не уверен. я когда-то задался целью и подсчитал. Если не ошибаюсь, было число 20. т.е. через 20 отзывов можно опять ставить отзыв первому.

А вообще...
ZX Spectrum-128, Mad_Cat, давайте не будем оффтопить!

про репутацию и отзывы можете почитать в теме ТУТ
(я там пытался объяснить что к чему, ну, насколько я сам понимаю... )
там же и обсудить можно...

[ZX Spectrum-128]

Не-не, я больше не буду.
Сложновато как-то.