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

@Инно4ка · Регистрация: 03.02.2012

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

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

@Puporev · 08.03.2012, 09:47

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,k:integer;
    s:real;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
s:=0;{сразу посчитаем сумму всех элементов}
for i:=1 to n do
 begin
  a[i]:=random(50)-25;
  write(a[i]:4);
  s:=s+a[i];
 end;
writeln;
writeln('Элементы меньшие среднего остальных:');
k:=0;
for i:=1 to n do{если меньше суммы без данного элемента
деленная на n-1}
if a[i]<(s-a[i])/(n-1) then
 begin
  write(a[i]:4);
  k:=k+1;
 end;
writeln;
write('Их количество=',k);
readln
end.

@Инно4ка 0 / 0 / 0 Регистрация: 03.02.2012 Сообщений: 24
		1
	Найти все элементы массива, меньшие среднего арифметического остальных элементов массива. 08.03.2012, 04:21. Показов 2183. Ответов 1 Метки нет (Все метки) Дан одномерный числовой массив. Найти все его элементы, меньшие среднего арифметического остальных элементов массива. Посчитать их количество. 0

Опции темы

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

Решение