Найти среднее арифметическое элементов заданного массива

@deadmoroz · Регистрация: 08.12.2012

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

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

Kodzaev · 04.01.2013, 18:41

Pascal

Const
  n=8;
Var
  x: Array[1..n] of Integer;
  i,k: Byte;
  s: Integer;
BEGIN
Randomize;
Writeln('Massiv:');
For i:=1 to n do
begin
  x[i]:=Random(51)-25;
  s:=s+x[i];
  Write(x[i]:4);
end;
Writeln;
Writeln('Srednee arifmetich = ',s/8:2:2);
For i:=1 to n do
If x[i]>s/8 Then Inc(k);
Writeln('Kolichestvo elementov > sr. arifm = ',k);
Readln
END.

@deadmoroz 0 / 0 / 0 Регистрация: 08.12.2012 Сообщений: 13
		1
	Найти среднее арифметическое элементов заданного массива 04.01.2013, 18:31. Показов 2086. Ответов 1 Метки нет (Все метки) Найдите среднее арифметическое элементов заданного массива из 8 целых чисел и определите, сколько элементов данного массива больше среднего. 0

Опции темы

Найти среднее арифметическое элементов заданного массива

Решение