Двумерный Массив, Последние столбцы массива Опции

[forMator]

Не получается найти последние f столбцы и вычислить их среднее арифметическое. Размерность матрицы k на l.
Запутался в циклах!Последние f столбцы нашёл,а при вычислении среднего арифметического выдаётся неправильный ответ.

[forMator]

Код

Program primer;
Const k=3;l=3;
Var M:array[1..k,1..l] of integer;
i,j,s,f:integer;  sum:real;
begin
for i:=1 to k do
for j:=1 to l do
begin
write('M[',i,',',j,']=');
readln(M[i,j]);
end;
write('vvedi f=');read(f);
s:=0;
for i:=1 to k do
for j:=l-f+1 to l do
s:=M[i,j]+s;
sum:=s/(k*f);
readln;
writeln('crednee ariphmeticheckoe=',sum:3:2);
readln;
end.

Посидел помозговал, вот такое получилось..
Воспользовался советом, но не работает..
выдаёт не правильное среднее арифметическое..

Сообщение отредактировано: forMator - 24.09.2006 17:36