[Pascal] найти стреднее арифметическое каждого столбца

[Рамик]

задача:
Дан массив размерностью [1..3,1..4]. найти среднее арифметическое каждого столбца.

вот я тут поптался:

program p1;
uses crt;
var a:array[1..3,1..4] of integer;
    i,j:byte; res:real;
    begin
clrscr;
Writeln('vvedite elementi massiva:');
for i:=1 to 3 do begin
    for j:=1 to 4 do
    readln(a[i,j]);
    end;
Writeln('vash massiv:');
for i:=1 to 3 do begin
    for j:=1 to 4 do
    write(a[i,j]:3);
    writeln;
    end;
    for j:=1 to 4 do begin
       res:=b[j]+b[j+1])/3;
       end;
end.

подскажите пожалуйста!

[Disel]

За место этого

res:=b[j]+b[j+1])/3;

Попробуй вот так

res:=(res+b[j])/3;

[Рамик]

нет, не идет так...

[XeN0N]

ЦИКЛ J от 1 до 4
{
	summ = 0
	ЦИКЛ I от 1 до 3
	{
		summ = summ + a[i][j]
	}
	вывести "Сумма" + J + " столбца = " + summ/3
}

[Sazary]

program p1;
uses crt;
var a:array[1..3,1..4] of integer;
    i,j:byte;
    res:real;
    begin
clrscr;
Writeln('vvedite elementi massiva:');
for i:=1 to 3 do begin
    for j:=1 to 4 do
    readln(a[i,j]);
    end;
Writeln('vash massiv:');
for i:=1 to 3 do begin
    for j:=1 to 4 do
    write(a[i,j]:3);
    writeln;
    end;
    for j:=1 to 4 do
    begin
    res:=0;
    for i:=1 to 3 do begin
      res:=res+a[i,j];
       end;
    res := res / 4;
    writeln('stolbec ',j,': ',res:5:2);
    end;
readln;
end.

--------------

[Рамик]

Сообщение от Sazary

program p1;
uses crt;
var a:array[1..3,1..4] of integer;
    i,j:byte;
    res:real;
    begin
clrscr;
Writeln('vvedite elementi massiva:');
for i:=1 to 3 do begin
    for j:=1 to 4 do
    readln(a[i,j]);
    end;
Writeln('vash massiv:');
for i:=1 to 3 do begin
    for j:=1 to 4 do
    write(a[i,j]:3);
    writeln;
    end;
    for j:=1 to 4 do
    begin
    res:=0;
    for i:=1 to 3 do begin
      res:=res+a[i,j];
       end;
    res := res / 4;
    writeln('stolbec ',j,': ',res:5:2);
    end;
readln;
end.

--------------

спасибо
.