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

@sania meloch · Регистрация: 22.05.2013

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

@Reveng · 23.05.2013, 16:42

Pascal

uses crt;
 
const 
  nmax = 20;
 
var
  A : array [1..nmax] of integer;
  i, n, count : integer;
  sr : real;
  
begin
  Repeat
    Write('Количество элементов (не более ', nmax, ')= ');
    Readln(n)
  until n in [1..nmax];
  Writeln('Введите элементы массива: ');
  for i := 1 to n do Read(A[i]);
  sr := 0;
  for i := 1 to n do sr := sr + A[i];
  sr := sr/n;
  count := 0;
  for i := 1 to n do if A[i] > sr then inc(count);
  Writeln('Ответ: ', count);
  Readln;
end.

@sania meloch 0 / 0 / 0 Регистрация: 22.05.2013 Сообщений: 15
		1
	Дан одномерный массив. Составьте программу определения количества элементов массива, больше среднего арифметического всех элементов. 22.05.2013, 23:00. Показов 4218. Ответов 1 Метки нет (Все метки) Дан одномерный массив. Составьте программу определения количества элементов массива, больше среднего арифметического всех элементов. 0

Опции темы

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

Решение