программы с использованием процедур и функций.

[E.r.r.o.r.]

Помогите пожалуйста,завтра сдавать,а я вообще понятия не имею как написать эту программу =(

Заданы две матрицы А(6,6) и В(6,6). Для матрицы, которая отвечает
заданному условию (1) выполните преобразования (2) в соответствии с
вариантом задания, представленным в табл. 1.
Условие (1) проверить в подпрограмме Function, преобразование
выполнить в подпрограмме Procedure.

1 – больше количество нулевых элементов на главной диагонали
2 – в каждой строке найти максимальный элемент и место, где он
расположен

Ну пожалуйста, хоть кто-нибудь,помогите =(((

[Hacker19_90]

1 – больше количество нулевых элементов на главной диагонали

что больше? чего больше?
КОНКРЕТНЕЕ

2 – в каждой строке найти максимальный элемент и место, где он
расположен

type
    massiv = array[1..n, 1..m] of integer;
    massiv2 = array[1..3, 1..n] of integer;
.......................................................
procedure GetMax (const a: massiv; const rows, cols: byte; var max: massiv2);
var
    i, j: integer;
begin
     for i := 1 to rows do
     begin
         max[1, i] := a[i, 1];
         max[2, i] := i;
         max[3, i] := 1;
         for j := 2 to cols do
             if a[i,j] > max[1, i] then
             begin
                  max[1, i] := a[i, j];
                  max[2, i] := i;
                  max[3, i] := j;
             end;
     end;
end;

что касаемо этой процедуры, то вам нужно было вернуть и позицию и сам максимальный элемент! Да + в каждой строчке!
Поэтому она вернёт массив из 3 строк
в первой мак элемент
во второй номер строки
в третьей номер столбца
Вот ток писал с потолка так что не судите строго

[E.r.r.o.r.]

Спасибо за помощь=)

Я тут по разбиралась с подобным примером и вот что у меня получилось:

program lab_2;
uses crt;
type ar=array[1..6,1..6] of integer;
var A,B: ar;
i,j,k1,k2: integer;

function Function1(var X: ar):integer;
   var i,kol: integer;
begin
   kol := 0;
   for i := 1 to 6 do
      if X[i][i]= 0 then
         kol :=kol+1;
   Function1 := kol;
end;

procedure Procedure1(var X: ar);
   var i,j,max,nMax:integer;
begin
   for i := 1 to 6 do
      begin
         max := X[i][1];
         nMax :=1;
         for j := 1 to 6 do
            if max < X[i][j] then
               begin
                  max := X[i][j];
                  nMax := j;
               end;
         writeln('В ',i,' строке максимальный элемент ', max ,' на ', nMax ,' позиции');
      end;
end;

begin
   writeln('Введите матрицу A[6][6]');
   for i:= 1 to 6 do
      for j:=1 to 6 do
         read(A[i][j]);
   writeln('Введите матрицу B[6][6]');
   for i:= 1 to 6 do
      for j:=1 to 6 do
         read(B[i][j]);
   k1:= Function1(A);
   k2:= Function1(B);
   if k1> k2 then
      begin
         writeln('Условию удовлетворяет матрица A');
         Procedure1(A);
      end
   else
       if k2 > k1 then
          begin
             writeln('Условию удовлетворяет матрица B');
             Procedure1(B);
          end
       else
          writeln('Введенные матрицы не удовлетворяют условию');
   readkey;
   Clrscr;
end.

[arrowsf1]

а диагональ что такое???
а так сказка детская 200рублей.