помогите с массивом Опции

[wary]

Дана следующая таблица 8x10:

1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1

Необходимо найти среднеарифметическое каждой строчки?

Чтобы это сделать нужно подсчитать сумму элементтов в каждой строке и разделить на их количество, вот именно это у меня и не получается.

Сообщение отредактировано: wary - 18.12.2006 22:52

[Гость]

вот именно это у меня и не получается.

for i:=1 to 8 do begin
s:=0;
for j:=1 to 10 do s:=s+a[i,j];
s:=s/10;
writeln (s);
end;

Вот примерно так должна выглядеть эта часть программы..