Найти число элементов в каждой строке, больших(меньших) среднего арифмитического элементов данной строки

@inna511 · Регистрация: 18.10.2010

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

@pryda · 18.10.2010, 23:36

Pascal

for i:=1 to n do
begin
 sa:=0; m:=0; b:=0;
 for j:=1 to n do
 sa:=s+m[i,j];
 sa:=trunc(sa/n);
 for j:=1 to n do
 if m[i,j]>sa then inc(b) else inc(m);
 writeln('Строка ',i,' Элементов, больших СА: ',b,', меньших:',m);
end;

@inna511 0 / 0 / 0 Регистрация: 18.10.2010 Сообщений: 13
		1
	Найти число элементов в каждой строке, больших(меньших) среднего арифмитического элементов данной строки 18.10.2010, 22:35. Показов 1670. Ответов 1 Метки нет (Все метки) Найти число элементов в каждой строке, больших(меньших) среднего арифмитического элементов данной строки 0

	18.10.2010, 23:36

Опции темы

Найти число элементов в каждой строке, больших(меньших) среднего арифмитического элементов данной строки

Решение