Массивы, матрицы

[marco_33]

Определить, сколько элементов матрицы в рядках с четными номерами превышают отношение максимального элемента к минимальному.

фух, последняя лаба осталось, понятия не имею, как ее делать, помогите кто чем может

[Sciv]

Function Otn: Real;
var min,max: real;
    i,j: integer;
begin
  min:=a[1,1];
  max:=a[1,1];
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j]<min then min:=a[i,j] else 
      if a[i,j]>max then max:=a[i,j];
  Otn:=Max/Min;
end;

var i,j, count: integer;
    o: real;

begin
  o:=Otn;
  count:=0;
  for i:=2 to n do 
    if odd(i) then
      for j:=1 to m do 
        if a[i,j]>o then inc(count);
  WriteLn(count);
  ReadLn;
end;

[ruslawik]

Уроки для хакеров и программистов