Определить количество элементов массива, больших среднего арифметического

@Evri · Регистрация: 23.09.2010

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

Задание следующее: В данном числовом массиве определить количество элементов массива, больших среднего арифметического.

@Ricky · 24.09.2010, 07:29

какой массив (одномерный, двумерный)?
название темы не соответствует задаче.

Добавлено через 28 минут

Pascal

var
   a:array [1..20] of byte;
   n,i,y:byte;
   x:real;
begin
     write('n=');readln(n);
     for i:=1 to n do
         begin write('a[',i,']=');readln(a[i]); end;
     x:=a[1];
     for i:=2 to n do
         x:=x+a[i];
     x:=x/n;
     y:=0;
     for i:=1 to n do
         if x<a[i] then y:=y+1;
     writeln(y);
end.

для одномерного массива

@Evri 0 / 0 / 0 Регистрация: 23.09.2010 Сообщений: 15
		1
	Определить количество элементов массива, больших среднего арифметического 24.09.2010, 00:39. Показов 1385. Ответов 1 Метки нет (Все метки) Задание следующее: В данном числовом массиве определить количество элементов массива, больших среднего арифметического. 0

	24.09.2010, 07:29

Определить количество элементов массива, больших среднего арифметического

Решение