Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 04.06.2012
Сообщений: 8
1

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

04.06.2012, 13:18. Показов 1318. Ответов 1
Метки нет (Все метки)

1)Двумерный массив А(n, m) заполнен случайными целыми числами, находящимися в интервале от 0 до 20. Выведите исходный массив в виде матрицы. Найти количество элементов каждого столбца, меньше среднего арифметического всех его элементов. Использовать подпрограммы.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.06.2012, 13:18
Ответы с готовыми решениями:

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

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

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

Найти количество элементов, больших среднего арифметического всех элементов столбца матрицы. Блок схема
program Project1;(*Дана матрица размера m x n. В каждом ее столбце найти количество...

1
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
04.06.2012, 18:08 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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
const
  nmax=100;
type
  tArr=array[1..nmax,1..nmax] of integer;
  
procedure init(n1,m1: integer; var a: tArr);
var i,j: integer;
begin
  for i:=1 to n1 do
    for j:=1 to m1 do
      a[i,j]:=random(21);
end;
 
procedure outPut(n1,m1: integer; var a: tArr);
var i,j: integer;
begin
  for i:=1 to n1 do
  begin
    for j:=1 to m1 do
      write(a[i,j]:4);
    writeln;
  end;
  writeln;
end;
 
function average(n1,m1: integer; var a: tArr): real;
var 
  i,j,sum: integer;
  sred: real;
begin
  sum:=0;
  for i:=1 to n1 do
    for j:=1 to m1 do
      sum:=sum+a[i,j];
  sred:=sum/n1/m1;
  average:=sred;
end;
 
procedure count(n1,m1: integer; var a: tArr);
var i,j,k: integer;
begin
  for j:=1 to m1 do
  begin
    k:=0;
    for i:=1 to n1 do
      if a[i,j]<average(n1,m1,a) 
        then inc(k);
  writeln('В ',j,'-м столбце ',k,' элементов, меньших среднего по массиву');
  end;   
end;
 
var 
  n,m: integer;
  a: tArr;
begin
  randomize;
  write('Введите размеры массива n,m: ');
  readln(n,m);
  init(n,m,a);
  writeln('Массив:');
  outPut(n,m,a);
  writeln('Среднее арифметическое по массиву = ',average(n,m,a):5:3);
  count(n,m,a);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.06.2012, 18:08

В каждом столбце матрицы найти количество элементов, больших среднего арифметического всех элементов этого столбца
Данная матрица размера М × N. В каждом ее столбце найти количество элементов, больших среднего...

В каждом столбце матрицы найти количество элементов, больших среднего арифметического элементов столбца
помогите с задачей!!! дана матрица размера M*N.в каждом её столбце найти количество...

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

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


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

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

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