Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
AlekSiSS21
0 / 0 / 1
Регистрация: 23.10.2014
Сообщений: 17
1

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

23.10.2014, 21:26. Просмотров 1838. Ответов 1
Метки нет (Все метки)

Нужно найти количество элементов массива, больших среднего арифметического всех ее элементов. Всё работает, только вот то самое количество все время получается равно 31-му. В чем ошибка?
У меня в программе:
s - сумма
k - количество
sr - среднее арифметическое

Сама программа:

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
program Pascal1;
const N=5; M=6;
var A: array [1..N,1..M] of integer;
    i, j, s, k: integer;
    sr: real;
begin
k:=0; s:=0;
randomize;
for i:=1 to N do begin
for j:=1 to M do begin
A[i,j]:=random(50)-10;
write (A[i,j]:6);
end; writeln; end;
 
for i:=1 to N do
for j:=1 to M do
s:=s+A[i,j];
writeln ('s = ',s);
 
for i:=1 to N do
for j:=1 to M do
k:=k+1;
writeln ('k = ',k);
 
sr:=s/k;
writeln ('Srednee ',sr);
 
if (A[i,j]>=sr) then begin
                  inc(k);
                  end;
                  writeln ('Kolichestvo ',k);
                  end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.10.2014, 21:26
Ответы с готовыми решениями:

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

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

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

Матрицы. Найти количество элементов каждого столбца, меньше среднего арифметического всех элементов
Здравствуйте... У меня возникли проблемы по решению двух задач по двумерным...

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

1
erl27
897 / 745 / 832
Регистрация: 06.09.2013
Сообщений: 1,561
23.10.2014, 21:45 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 Pascal1;
 
const
  N = 5; M = 6;
 
var
  A: array [1..N, 1..M] of integer;
  i, j, k: integer;
  s: real;
 
begin
  cls;
  k := 0; s := 0;
  randomize;
  for i := 1 to N do 
  begin
    for j := 1 to M do 
    begin
      A[i, j] := random(50) - 10;
      write(A[i, j]:6);
      s := s + A[i, j] //Сумма элементов
    end;
    writeln
  end;
  s := s / (N * M); //Среднее арифметическое (сумму делим на количество ВСЕХ чисел)
  writeln('Srednee ', s:0:3); 
  for i := 1 to N do
    for j := 1 to M do
      if a[i, j] > s then k := k + 1; //Считаем элементы большие среднего
  writeln('Kolichestvo ', k)
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.10.2014, 21:45

Найти количество элементов каждого столбца матрицы, меньше среднего арифметического всех его элементов
1)Двумерный массив А(n, m) заполнен случайными целыми числами, находящимися в...

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

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


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

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

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