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

@Shah69 · Регистрация: 24.10.2016

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

Задан целочисленный массив, состоящий из 10 эелементов.Найти кол-во элементов, абсолютное значение которых больше среднего арифметического.
Заранее всех благодарю!

@Puporev · 30.10.2016, 18:40

Pascal

const n=10;
var a:array[1..n] of integer;
     i,k:byte;
     s:real;
...........................
//вводите массив и считаете сумму
s:=0;
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
  s:=s+a[i];
 end;
s:=s/n;
k:=0;
for i:=1 to n do
if abs(a[i])> s then k:=k+1;

@Shah69 0 / 0 / 0 Регистрация: 24.10.2016 Сообщений: 36
		1
	Найти количество элементов массива, абсолютное значение которых больше среднего арифметического 30.10.2016, 18:19. Показов 4533. Ответов 1 Метки нет (Все метки) Задан целочисленный массив, состоящий из 10 эелементов.Найти кол-во элементов, абсолютное значение которых больше среднего арифметического. Заранее всех благодарю! 0

	30.10.2016, 18:40

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

Решение