Среднее арифметическое.

@Steward · Регистрация: 08.09.2011

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

Заполняется массив случайным образом(20 элементов) из диапозона от 1 до 100.
Определить среднее арифметическое от всего массива и сколько элементов больше среднего-арифметического.

@WebMax 2.0 · 26.12.2011, 16:33

Pascal

uses crt;
 
const n = 20;
var a :array [1..n] of integer;
i,x:integer;
sred:real;
 
begin
   Write('Массив: ');
   For i:=1 to n do
   begin
   randomize;
   a[i]:=random(100)+1;
   write(a[i]:3);
   sred:=sred+a[i];
   end;
   sred:=sred/n; Writeln;
   Writeln('Сред. ариф. массива - ',sred:0:2);
   Write('Числа больше сред. ариф.: ');
   For i:=1 to n do
   If a[i]>sred then begin write(a[i],' '); inc(x); end;
   Writeln;
   Writeln(x,' - чисел');
 
end.

@Steward 0 / 0 / 0 Регистрация: 08.09.2011 Сообщений: 6
		1
	Среднее арифметическое. 26.12.2011, 16:07. Показов 1352. Ответов 1 Метки нет (Все метки) Заполняется массив случайным образом(20 элементов) из диапозона от 1 до 100. Определить среднее арифметическое от всего массива и сколько элементов больше среднего-арифметического. 0

	26.12.2011, 16:33

Среднее арифметическое.

Решение