Не получается найти последние f столбцы и вычислить их среднее арифметическое. Размерность матрицы k на l.
Запутался в циклах!Последние f столбцы нашёл,а при вычислении среднего арифметического выдаётся неправильный ответ.
s := 0;
for i := 1 to RowCount do
for j := ColCount - f + 1 to ColCount do
s := s + x[i, j];
s := s / (RowCount * f);
i := 1;
j := 1;
s := 0;
count := 0;
repeat
inc(count);
s := s + x[i, j];
if (j = m) then begin
inc(i);
j := 1;
end
else inc(j);
until (count = p) or (i > n);
{ Цикл по столбцам ... }
for j := 1 to n do
if arr[1, j] = 1 then begin
s := 0;
{ Цикл по строкам }
for i := 1 to n do s := s + arr[i, j];
writeln('Столбец №', j:2, ' ; сумма = ', s);
end;