0 / 0 / 1
Регистрация: 11.04.2018
Сообщений: 108
1

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

21.05.2018, 18:32. Показов 1493. Ответов 1
Метки нет (Все метки)

Массив заполнить случайными числами на отрезке [a,b]. На экран вывести исходный массив, среднее значение и количество с поясняющим текстом.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program OKR;
uses crt;
type mas=array [1..20] of real;
var m:mas;
    sr,sum:real;
    kol,i,a,n,b:integer;
begin
     clrscr;
     write ('Введите отрезок (а b): ');
     readln (a,b);
write ('Введите кол-во эл-тов: ');
     readln (n);
     randomize;
     for i:=1 to n do
     begin
         m[i]:=(b-a)*random+a;
         write ('m[',i,']=',m[i]:3:1,' ');
     end;
readln;
end.
Как продолжить?
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.05.2018, 18:32
Ответы с готовыми решениями:

Получить одномерный массив, состоящий из элементов массива А, которые превышают по модулю число, введенное пользователем
Задан массив A. Получить массив одномерный массив В, состоящий из элементов массива А, которые...

Дан одномерный массив. Найти сумму элементов, значения которых не превышают 20
Люди, помогите пожалуйста решить. срочно. 1)Дан одномерный массив. Все его элементы: ...

Дан одномерный массив, найти количество элементов, которые делятся на 3 без остатка
Дан одномерный массив, найти количество элементов, которые делятся на 3 без остатка вывести все...

Дан одномерный целочисленный массив A, состоящий из N элементов массива A, которые яв-ся числами Фибоначи
№ 2 Дан одномерный целочисленный массив A, состоящий из N элементов массива A, которые яв-ся...

1
Эксперт Pascal/Delphi
6799 / 4560 / 4815
Регистрация: 05.06.2014
Сообщений: 22,438
23.05.2018, 08:48 2
Pascal
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
program OKR;
 
uses crt;
 
type
  mas = array [1..20] of real;
 
var
  m: mas;
  sr, sum: real;
  kol, i, a, n, b: integer;
 
begin
  clrscr;
  sum := 0;
  sr := 0;
  kol := 0;
  write('Введите отрезок (а b): ');
  readln(a, b);
  write('Введите кол-во эл-тов: ');
  readln(n);
  randomize;
  for i := 1 to n do
  begin
    m[i] := (b - a) * random + a;
    write('m[', i, ']=', m[i]:3:1, ' ');
    sum := sum + m[i];
  end;
  sr := sum / n;
  writeln;
  writeln('Среднее: ', sr:3:1);
  for i := 1 to n do
    if m[i] > sr then
      kol := kol + 1;
  writeln('Количество элементов, которые превышают среднее значение массива: ', kol);      
  readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.05.2018, 08:48
Помогаю со студенческими работами здесь

Дан одномерный массив A[10]. Элементами массива являются случайные числа от -10 до 10. Подсчитайте количество положительных элементов данного массива
Помогите пожалуйста :cry:

Дан одномерный массив В от [N], где значения элементов массива и их количество N вводятся с клавиатуры
Дан одномерный массив В, где значения элементов массива и их количество N вводятся с клавиатуры. На...

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

Дан вещественный массив А[4][3]. Найти среднее арифметическое значение положительных элементов массива А
Дан вещественный массив А. Найти среднее арифметическое значение положительных элементов массива А....


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru