задача по паскалю

[poluprogramist]

помогите пожалуста решить задачю
вот условия

Дана действительная матрица размерностью m*n. Найти среднее арифметическое а) для каждого из столбцов, б) для каждого из столбцов, имеющих четные номера.

спасибо!!!

[Alter]

Вот вам решение(константы: m - Строк колличество; n - Столбцов колличество.):

const m = 100;
      n = 100;
var mar :array[1..m, 1..n] of real;
    c,cc,r,rr :integer;
    sum :real;
begin
 write('vvedite kollichestvo Strok_ne bolee_', m, ': '); readln(rr);
 write('vvedite kollichestvo Stolbcov_ne bolee_', n, ': '); readln(cc);
  writeln;
 writeLn('vvedite elementi matrici, [Row, Col]:');
 For r:=1 To rr do
 begin
  For c:=1 To cc do
  begin
   write(' [', r, ', ', c, ']:=');
   read( mar[r, c] );
  end;
  writeln;
 end;
  writeln;

 writeln(' -= VVEDENAYA MATRICA =-');
 For r:=1 To rr do
 begin
  For c:=1 To cc do
  Write(' ', mar[r, c]:4:4);
  writeln;
 end;

  writeln;
  writeln(' -= OPREDELENIE DLYA STOLBCOV =-');
 For c:=1 To cc do
 begin
  sum:=0;
  For r:=1 To rr do
  sum := sum + mar[r, c];
  Write(' [', c, ']=', (sum/rr):4:4, '; ');
 end;

  writeln(#13#10, ' -= OPREDELENIE DLYA CHETNIH STOLBCOV =-');
 For c:=1 To cc do
 begin
   sum:=0;
  IF (c mod 2)=0 then
  begin
   For r:=1 To rr do
   sum := sum + mar[r, c];
   Write(' [', c, ']=', (sum/rr):4:4, '; ');
  end;
 end;

 readkey;
end.

___________________________________ ______________________________
незабудьте плюсик мне

[poluprogramist]

Большое спасибо
Мнеб так научится