двумерный массив

[viper1941]

Дана матрица натуральных чисел А(N,N). Найти количество строк, в которых все элементы, стоящие на четных местах, больше среднего арифметического элементов, стоящих на нечетных местах.

[dekameron]

PROGRAM zzzz;
USES Crt;
CONST n=10;
TYPE mas=array[1..n,1..n] of integer;
VAR
 a:mas;
 i,j,count:integer;
FUNCTION is_valid(a:mas; row:integer):boolean;
  Var
    i,j,count:integer;
    avg:real;
  Begin
   for i:=1 to n do if odd(i) then begin avg:=avg+a[row,i]; count:=count+1;  end;
   avg:=avg/count;
   is_valid:=true;  
   for i:=1 to n do 
     if (NOT odd(i)) AND (a[row,i] <= avg) 
     then
       begin
         is_valid:=false; break;
       end; 
  End;
BEGIN
clrscr;
randomize;
for i:=1 to n do
 for j:=1 to n do
  a[i,j]:random(100)-50;
for i:=1 to n do
  begin
    for j:=1 to n do write(a[i,j]:3:3,' ');
    writeln;
  end;
writeln('--------------');
j:=0;
for i:=1 to n do
  if is_valid(a,i) then j:=j+1;
writeln('Count=',j);
repeat read until keypressed;
END.

TP на компе нету, возможны очепятки