Программа использованием с библиотечным модулем пользователя(наибольший чётный элемент)

[danil663]

Разработать алгоритм и программу решения задачи с использованием библиотечного модуля пользователя, найти наибольший чётный элемент квадратной матрицы размером 3х3 , состоящей из элементов целого типа.

Может кому не спится поздней ночью или ранним утром. Заранее благодарен всем)

[Mad_Cat]

Модуль

Unit MyUnit;
interface
const NN=3;
Type TMatrix = array[1..NN,1..NN] of integer;
procedure InputMatrix(Var M:Tmatrix);
procedure PrintMatrix(Var M:Tmatrix);
function Task(Var M:Tmatrix):integer;
implementation

procedure InputMatrix(Var M:Tmatrix);
var i,j:integer;
begin
     for i:=1 to NN do
     for j:=1 to NN do
         Readln(M[i,j])
end;
procedure PrintMatrix(Var M:Tmatrix);
var i,j:integer;
begin
     for i:=1 to NN do begin
         for j:=1 to NN do
             write(M[i,j]:6);
         writeln;
     end;
end;

function Task(Var M:Tmatrix):integer;
var i,j,mx:integer;
begin
     mx:=-MaxINT;
     for i:=1 to NN do
         for j:=1 to NN do
             if not odd(M[i,j]) and (M[i,j]>mx) then mx:=M[i,j];
     Task:=mx;
end;

begin

end.

основная

uses MyUnit;
var X:Tmatrix;
begin
InputMatrix(X);
PrintMatrix(X);
writeln(Task(x));
end.

Результат работы

1
2
3
4
5
6
7
8
9
1 2 3
4 5 6
7 8 9
8

[danil663]

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

Модуль

Unit MyUnit;
interface
const NN=3;
Type TMatrix = array[1..NN,1..NN] of integer;
procedure InputMatrix(Var M:Tmatrix);
procedure PrintMatrix(Var M:Tmatrix);
function Task(Var M:Tmatrix):integer;
implementation

procedure InputMatrix(Var M:Tmatrix);
var i,j:integer;
begin
     for i:=1 to NN do
     for j:=1 to NN do
         Readln(M[i,j])
end;
procedure PrintMatrix(Var M:Tmatrix);
var i,j:integer;
begin
     for i:=1 to NN do begin
         for j:=1 to NN do
             write(M[i,j]:6);
         writeln;
     end;
end;

function Task(Var M:Tmatrix):integer;
var i,j,mx:integer;
begin
     mx:=-MaxINT;
     for i:=1 to NN do
         for j:=1 to NN do
             if not odd(M[i,j]) and (M[i,j]>mx) then mx:=M[i,j];
     Task:=mx;
end;

begin

end.

основная

uses MyUnit;
var X:Tmatrix;
begin
InputMatrix(X);
PrintMatrix(X);
writeln(Task(x));
end.

Результат работы

спасибо тебе уже в 3-й раз