масивы

@Cronon · Регистрация: 19.05.2010

Author24 — интернет-сервис помощи студентам

дана прямоугольная матрица F подсчитать средние арифметическое отрицательных элементов в матрице.
прошу помочь, очень срочно.

@Mиxaил · 09.06.2010, 12:08

Pascal

const n=3; m=4;
var a:array[1..n,1..m] of integer;
    i,j,sum:integer;
    aver:real;
begin
for i:=1 to n do
   for j:=1 to m do
       begin
           write('a[',i,',',j,'] = ');
           readln(a[i,j]);
       end;
sum:=0;
for i:=1 to n do
    for j:=1 to m do
        if a[i,j]<0 then sum:=sum+a[i,j];
aver:=sum/(n*m);
writeln('average = ', aver);
readln;
end.

@Cronon 1 / 1 / 0 Регистрация: 19.05.2010 Сообщений: 16
		1
	масивы 09.06.2010, 09:19. Показов 1385. Ответов 1 Метки нет (Все метки) дана прямоугольная матрица F подсчитать средние арифметическое отрицательных элементов в матрице. прошу помочь, очень срочно. 0

	09.06.2010, 12:08

масивы

Решение