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

Нахождения среднего арифметического элементов массива

29.01.2018, 18:11. Показов 12404. Ответов 1
Метки нет (Все метки)

Разработайте программу для нахождения среднего арифметического элементов массива А, больших числа с, введенного с клавиатуры.
Больших числа с - я не знаю как сделать!
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
program pr;
 
var
  a: array [1..100] of integer;
  i, n, cout, sum: integer;
  avg: real;
 
begin
  cout := 0;
  sum := 0;
  writeln('Введите размер массива');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := random(21);   // диапазон любой ставь( здесь от 0 до 20);
    write(a[i]:3);
    if i mod 2 = 0 then
    begin
      cout := cout + 1;
      sum := sum + a[i];
    end;
  end;
  writeln;
  writeln('Среднее арифметическое: ', sum / cout);
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.01.2018, 18:11
Ответы с готовыми решениями:

Раскройте алгоритм нахождения среднего арифметического элементов одномерного массива
Раскройте алгоритм нахождения среднего арифметического элементов одномерного массива: всех...

Написать программу для нахождения количества значений элементов массива меньших среднего арифметического
1. Дан двумерный числовой массив A состоящий из 35*35 элементов. Написать программу для нахождения...

Составить процедуру нахождения среднего арифметического элементов не пустого списка L.
помогите пожалуйста с этой задачей! Составить процедуру нахождения среднего арифметического...

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

1
Эксперт Pascal/Delphi
6804 / 4563 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
29.01.2018, 18:27 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
program pr;
 
var
  a: array [1..100] of integer;
  c, i, n, cout, sum: integer;
  avg: real;
 
begin
  randomize;
  cout := 0;
  sum := 0;
  writeln('Введите число С: ');
  readln(c);
  writeln('Введите размер массива: ');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := random(21);   // диапазон любой ставь( здесь от 0 до 20);
    write(a[i]:4);
    if a[i] > c then
    begin
      cout := cout + 1;
      sum := sum + a[i];
    end;
  end;
  writeln;
  if cout <> 0 then
    writeln('Среднее арифметическое: ', sum / cout)
  else
    writeln('Нет таких чисел');
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.01.2018, 18:27
Помогаю со студенческими работами здесь

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

Найти количество элементов массива, больших среднего арифметического всех ее элементов
Нужно найти количество элементов массива, больших среднего арифметического всех ее элементов. Всё...

Выдать номера элементов, значения которых больше среднего арифметического элементов массива
1. Заполнить массив из 10-ти элементов целыми случайными числами в диапазоне 1 – 20 и выдать номера...

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


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

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

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