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

@Qwertyuiop12345 · Регистрация: 16.09.2011

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

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

@shamax · 17.09.2011, 14:17

Pascal

// Найти в массиве количество элементов, больших среднего арифметического всех его элементов.
const n=1000; 
var a:array[1..n] of integer;
    k,l,m:integer;
    i:integer;
begin
writeln('Введите количество элементов массива: ');
readln(m);
writeln('Введите массив: ');
for i:=1 to m do readln(a[i]);
for i:=1 to m do 
begin
  k:=k+a[i];
  k:=k div m;
end;
for i:=1 to m do
  if a[i]>k then inc(l);
writeln('Количество элементов, больших среднего арифметического всех его элементов: ',' ',l);
end.

@Qwertyuiop12345 1 / 1 / 0 Регистрация: 16.09.2011 Сообщений: 21
		1
	Найти количество элементов массива, больших среднего арифметического 17.09.2011, 08:46. Показов 5227. Ответов 1 Метки нет (Все метки) Составить программы, находящую в данном массиве: количество элементов, больших среднего арифметического всех его элементов. 0

	17.09.2011, 14:17

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

Решение