Определите наименьшие элементы

[Vredinka_V]

Определите наименьшие элементы в каждой строке матрицы X(K,L), наибольшие элементы в каждой строке матрицы Y(L,M).
Используя Procedure и Function.
помогите пожалуста..............срочно нада

[RUSt88]

пиши на мыло, договоримся о цене

[Лубышев]

Ну действительно че то я добр сегодня
код на паскале с использованием двух функций. проверь синтаксис только в блокноте писал

type matrix:array[0..10,0..10]:integer;

function max(s:matrix):integer;
var i,j:integer;
begin
max:=s[0,0];
for i:=0 to 10 do
for j:=0 to 10 do
if max<s[i,j] then max:=s[i,j];
end;

function min(s:matrix):integer;
var i,j:integer;
begin
min:=s[0,0];
for i:=0 to 10 do
for j:=0 to 10 do
if min>s[i,j] then min:=s[i,j];
end;

var i,j:integer;
massiv:matrix;
maximum,minimum:integer;
begin
randomize;
for i:=0 to 10 do
for i:=0 to 10 do
massiv[i,j]:=random(10);
maximum:=max(massiv);
minimum:=min(massiv);
wrineln(maximum);
wrineln(minimum);
readln;

end.

надеюсь хотябы спасибо скажешь (отзыв)

[RUSt88]

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