Помогите пожалуйста решить задачу. Задан
двухмерный массив. Найти среднее арифметическое всех отрицательных элементов
массива.

1

Ответы и объяснения

2014-01-14T15:15:59+04:00
Sum:=0;
for i:=1 to k do//k- это конец массива
for j:=1 to b do//b- это конец второго массива
begin
sum:=sum+n[k,b];//n - это массив строка
end;
schet:=(sum)/(k*b);
writeln(schet);