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

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

25.12.2011, 23:57. Показов 3067. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
(усл. задачи: Дан двумерный массив. Найти количество элементов в каждой строке, больших среднего арифметического элементов в каждой строке.)

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
const n=10;
 
var a:array [1..n,1..n] of integer;
b:array [1..n] of real;
i,j,x:integer;
 
begin
randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
A[i,j]:=random(50)+1;
write(A[i,j]:4);
b[i]:=b[i]+a[i,j];
end;
b[i]:=b[i]/n;
writeln;
end;
writeln;
For i:=1 to n do
begin
For j:=1 to n do
If a[i,j]>b[i] then inc(x);
Writeln('В ',i,'-й строке - ',x);
x:=0;
end;
 
End.
дописать функции и процедуры
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.12.2011, 23:57
Ответы с готовыми решениями:

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

В каждой строке матрицы определить количество элементов, больших среднего арифметического этой строки
дана вещественная матрица С размером 7 на 8 в каждой строке определить количество элементов больших...

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

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

4
--\.founder./--
565 / 565 / 392
Регистрация: 20.10.2011
Сообщений: 867
26.12.2011, 00:17 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
uses crt;
const n=10;
 
Type mat = array [1..n,1..n] of integer;
var a:mat;
b:array [1..n] of real;
i,j,x:integer;
 
Procedure Matrica;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to n do
  begin
  for j:=1 to n do
    begin
    A[i,j]:=random(50)+1;
    write(A[i,j]:4);
    b[i]:=b[i]+a[i,j];
    end;
  b[i]:=b[i]/n;
  writeln;
  end;
writeln;
end;
 
Function Poisk(a:mat):integer;
begin
For j:=1 to n do
    If a[i,j]>b[i] then inc(x);
Poisk:=x;
x:=0;
end;
 
begin
Matrica;
For i:=1 to n do
  Writeln('В ',i:2,'-й строке - ',Poisk(a));
End.
2
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
26.12.2011, 00:23 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
const n=10;
type mat=array [1..n,1..n] of integer;
     mas=array [1..n] of real;
 var a: mat;
     b: mas;
 i,j:integer;
 
 procedure GenM (var a: mat);
 begin
 randomize;
 writeln('Исходный массив:');
 for i:=1 to n do
     begin
     for j:=1 to n do
         begin
         A[i,j]:=random(50)+1;
         write(A[i,j]:5);
         end;
     writeln;
     end;
 end;
 
 procedure Srar (a: mat; var b: mas);
 begin
 writeln('Среднее по строкам:');
 for i:=1 to n do
     begin
     b[i]:=0;
     for j:=1 to n do
          b[i]:=b[i]+a[i,j];
     b[i]:=b[i]/n;
     write(b[i]:5:1);
     end;
 writeln;
 end;
 
 function Kol (ns: integer): integer;
 var k: integer;
 begin
 k:=0;
 For j:=1 to n do
     If a[ns,j]>b[ns] then inc(k);
 Kol:=k;
 end;
 
 begin
 GenM (a);
 Srar (a,b);
 writeln('Больше среднего:');
 For i:=1 to n do
      Writeln('В ',i,'-й строке - ',Kol (i));
 End.
2
--\.founder./--
565 / 565 / 392
Регистрация: 20.10.2011
Сообщений: 867
26.12.2011, 00:26 4
Репутация: 898

Не по теме:

Я тебе девятисотый добью =)

0
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
26.12.2011, 00:29 5

Не по теме:

не стоит, я его выгрызу самостоятельно



Добавлено через 1 минуту

Не по теме:

к тому же

Рейтинг сообщений: 860

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.12.2011, 00:29
Помогаю со студенческими работами здесь

В каждой строке матрицы найти количество элементов, меньших среднего арифметического
Помогите, пожалуйста, с задачами!:( Мы не можем на форуме найти их решение. Очень сильно нужна...

Найти число элементов в каждой строке массива, больших (меньших) среднего арифметического элементов данной строки
ДВУМЕРНЫЙ МАССИВ 1. Найти число элементов в каждой строке, больших (меньших) среднего...

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

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


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

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

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