Массивы-Паскаль

[Айдар]

Ребят помогите решить задачу на завтра.

Задана матрица А(k,l). Найти вектор B(l) каждый элемент каторго равен ср. арефм. элементов соответствующего столбца матрицы А.

Наработок нету.

[Lemo]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
     const
     n=3;
     m=3;
  var
  a:array[1..n,1..m] of integer;
  i,j,c:integer;
  F:real;
begin
Randomize;
for I := 1 to n do
  begin
     for j := 1 to m do
      begin
         a[i,j]:=random(25)+1;
         write(a[i,j],' ');
      end;
      writeln;
  end;


  c:=0;

  for j := 1 to m do
  begin
     for i := 1 to n do
      begin
          c:=c+a[i,j];

      end;
      F:=c/n;
      writeLn('SredArefm : ',F:6:2);
      c:=0;
  end;
  writeln;


  readln;
  end.

[Айдар]

вот немного изменил там были ошибки, но самое главное не могу сделать все эти ср арефмит в отдельный массив b(l) надо запихнуть как?

program Project1;
     const
     n=3;
     m=3;
  var
  a:array[1..n,1..m] of integer;
  b:array[1..100] of integer;
  i,j,c:integer;
  F:real;
begin
for j := 1 to m do
  begin
     for i := 1 to n do
      begin
         readln(a[i,j]);
      end;
      writeln;
  end;
  c:=0;
  for j := 1 to n do
  begin
     for i := 1 to m do
      begin
          c:=c+a[i,j];
      end;
      F:=c/n;
      writeLn('SredArefm : ',F:6:2);
            c:=0;
  end;
  writeln;
  readln;
  end.

[Айдар]

Ребят ну помогите, запихнуть f в отдельный массив b(l)

[ОДИНОЧЕСТВО В СЕТИ]

for j:=1 to l do
begin
sr:=0;
for i:= 1 to k do
sr:=sr+a[i,j];
b[j]:=sr/k;
end;

[Айдар]

b[j]:=sr/k;
вот тут пишет ошибку type mismatch

[ОДИНОЧЕСТВО В СЕТИ]

ну так sr/k- real поэтому и массив надо объявить как

 b:array[1..100] of real;

[Айдар]

все, спасибо заработало, +++