Developing.ru

Дан массив 3на3, найти среднее арифметическое 2 столбца матрицы. Помогите пожалуйста решить такую задачу в паскале.

Cделаю за бутылку пива! Ася 255507394

[syntax="pascal"]
uses crt;
var a:array[1..3,1..3] of real;
i,j: byte;
sr: real;
begin
clrscr;
for i:=1 to 3 do
begin
clrscr;
writeln('Stroka #',i,': ');
for j:=1 to 3 do
begin
write('-> ');
readln(a[i,j]);
end;
end;
sr:=0;
for i:=1 to 3 do sr:=sr+a[i,2];
sr:=sr/i;
writeln('Srednee arifmeticheskoe 2-go stolbca: ',sr:8:3);
readkey;
end.
[/syntax]

sr:=0;
for i:=1 to 3 do sr:=sr+a[i,2];
sr:=sr/i;
writeln('Srednee arifmeticheskoe 2-go stolbca: ',sr:8:3);

Прекрасно заменяется на
writeln('Srednee arifmeticheskoe 2-go stolbca: ',(a[1,2]+a[2,2]+a[3,2])/3):8:3);