Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 26.12.2014
Сообщений: 12
1

В массиве из N чисел определить количество чисел больших их среднего значения

13.06.2015, 11:19. Просмотров 1225. Ответов 1
Метки нет (Все метки)


В массиве из N чисел определить количество чисел больших их среднего значения
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.06.2015, 11:19
Ответы с готовыми решениями:

Найдите среднее арифметическое ненулевых чисел и количество чисел, по величине не больших A и стоящих на четных местах.
Найдите среднее арифметическое ненулевых чисел и количество чисел, по величине не больших A и...

Определить количество положительных чисел в массиве
написать программу которая определяет количество положительных чисел в масиве равных суме и двох...

Определить количество четных и произведение нечетных чисел в массиве
Определить количество четных и произведение нечетных чисел в массиве А(N) еесли можно с кратким...

Определить количество положительных и отрицательных чисел в массиве В1,В2,...,В20
Определить количество положительных и отрицательных чисел в массиве В1,В2..В20, определить...

1
5438 / 2145 / 450
Регистрация: 20.11.2009
Сообщений: 7,173
Записей в блоге: 1
13.06.2015, 11:27 2
Лучший ответ Сообщение было отмечено er1 как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Windows;
 
function MeanVal(A: Array of Integer): Extended;
var i: Integer;
    k: Integer;
begin
  k := 0;
  for i := 0 to Length(A) - 1 do
    k := k + A[i];
 
  Result := k / Length(A);
end;
 
var i: Integer;
    A: Array[0..10] of Integer;
    k: Integer;
begin
  Randomize;
  k := 0;
  for i := 0 to Length(A) - 1 do
    begin
      A[i] := Random(20);
      Write(A[i], ' ');
      if A[i] > MeanVal(A) then
        k := k + 1;
    end;
 
  Writeln;
 
  Writeln(MeanVal(A));
  Writeln(k);
 
  Readln;
end.
[OFF][/OFF]

Не по теме:

Цитата Сообщение от er1 Посмотреть сообщение
Сессия не могу выполнить задачу
считай не ты ее сдашь :)

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.06.2015, 11:27

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

определить количество четных чисел и количество нечетных чисел массива, которые вводятся в МЕМО, вывести в поле компонента Edit.
определить количество четных чисел и количество нечетных чисел массива, которые вводятся в МЕМО,...

В последовательности из N чисел определить количество чисел больших их среднего значения
В последовательности из N чисел определить количество чисел больших их среднего значения

Замена чисел, больших среднего арифметического, в массиве
В массиве C все элементы, больше среднего арифметического положительных чисел, заменить на первое...

Найти в массиве чисел количество чисел, больших предыдущих элементов массива
Найти в массиве чисел количество чисел, больших предыдущих элементов массива.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.