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

Найти номер строки матрицы, для которой среднеарифметическое значение ее элементов наименьшее

26.05.2009, 19:56. Показов 1645. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан целочисленный массив X [1..n,1..m](n и m вводятся пользователем).Найти номер строки, для которой среднеарифметическое значение ее элементов наименьшее.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.05.2009, 19:56
Ответы с готовыми решениями:

Найти номер строки матрицы, в которой количество нулей наибольшее.
В массиве А найти номер рядка в котором количество нулей наибольшая.

Найти номер столбца матрицы, в котором находится наименьшее количество положительных элементов
Найти номер столбца массива размером n*m, в котором находится наименьшее количество положительных...

Найти наименьшее значение элементов каждой строчки матрицы А
Товарищи помогите пожалуйста 1) дана матрица А размера m n x. Найти наименьшее значение элементов...

Найти номер строки матрицы, имеющей наименьшее число ненулевых элементов в четных позициях
Прошу помощи! Есть программа строящая матрицу и считающая ненулевые элементы в строке. Осталось...

6
203 / 145 / 16
Регистрация: 13.01.2009
Сообщений: 554
26.05.2009, 20:14 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

приветно так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
minn=1;
for j:=1 to n do mins:=mins+sum[j,1];
mins:=mins/n;
for i:=2 to m do begin
sum:=0;
for j:=1 to n do sum:=sum+x[j,i];
if mins>sum/n then begin
mins:=sum/n;
minn:=i;
end;
end;
writeln('среднее арифметичекое наименьшее в ',minn,'-й строке');
не проверял, но должно работать, в любом случае идея понятна
1
1 / 1 / 0
Регистрация: 26.05.2009
Сообщений: 17
26.05.2009, 20:45  [ТС] 3
проверь и напиши, а то я запутался

Добавлено через 11 минут 50 секунд
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
program day4;
uses CRT;
var a:array[1..10,1..10] of integer;
m,i,j,sum,minn,mins:integer;
n:byte;
begin
clrscr;
write('ўўҐ¤ЁвҐ Є®«ЁзҐбвў® бва®Є');
readln(n);
write('ўўҐ¤ЁвҐ Є®«ЁзҐбвў® бв®«Ўж®ў');
readln(m);
for i:=1 to m do
begin
for j:=1 to n do
read(a[i,j]);
end;
writeln('‚ўҐ¤Ґ*л© ¬*ббЁў:');
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:5);
end;
begin
minn:=1;
for j:=1 to n do
mins:=mins+a[j,1];
mins:=mins/n;
for i:=2 to do sum:=x[j,i];
if mins>sum/n then begin
mins:=sum/n;
minn:=i;
end;
end;
writeln('sred v ',minn,'-i stroke');
readkey;
end.
0
203 / 145 / 16
Регистрация: 13.01.2009
Сообщений: 554
27.05.2009, 09:52 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
var a:array[1..5,1..5] of integer;
m,i,j,sum,minn,mins:integer;
n:byte;
begin
m:=5;
n:=5;
for i:=1 to m do
for j:=1 to n do
begin
write('vvedite element[',i,',',j,'] ');
readln(a[i,j]);
end;
 
for i:=1 to m do
begin
writeln;
for j:=1 to n do
begin
write(a[i,j]:5);
end;
end;
writeln;
minn:=1;
for j:=1 to n do mins:=mins+a[j,1];
mins:=round(mins/n);
for i:=2 to m do begin
sum:=0;
for j:=1 to n do sum:=sum+a[j,i];
if mins>sum/n then begin
mins:=round(sum/n);
minn:=i;
end;
end;
writeln;
writeln('srednee arifmeticheskoe minimalno v ',minn,'-y stroke');
readln;
end.
1
2923 / 844 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
27.05.2009, 10:31 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
USES CRT;
var a:array[1..100,1..100] of integer;
   m,i,j,sum,n,k,sum:integer;
   srmin:real;
begin
writeln('m,n ');
readln(m,n);
 
for i:=1 to m do
for j:=1 to n do
readln(a[i,j]);
 
 
for i:=1 to m do
begin
writeln;
for j:=1 to n do
begin
write(a[i,j]:5);
end;
end;
writeln;
i:=1;
 for j:=1 to n do
  sum:=sum+a[i,j];
srmin:=sum/n;
k:=1;
 
for i:=2 to m do 
  begin
   sum:=0;
   for j:=1 to n do
     sum:=sum+a[i,j];
   if sum/n<srsum then
              begin
                srsum:=sum/n;
                k:=i;
              end;
  end;
writeln(k,' - stroka ');
readln;
end.
Добавлено через 4 минуты 5 секунд
Splitter,
если я не ошибаюсь то ты ищешь среднее в столбце, а надо в строке , как я понял условие задачи
0
203 / 145 / 16
Регистрация: 13.01.2009
Сообщений: 554
27.05.2009, 11:34 6
строка или столбец будут зависеть только от того, как выводить на экран и это уж кому как нравится, поменять индексы на противоположные у будут строки вместо столбцов. В последнем моем сообщении вывод и подсчет вроде одинаковые...
0
2923 / 844 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
27.05.2009, 11:39 7
я не имею ничего против , просто как раз в последнем примере у тебя поиск и вывод матрици сделан по разному
0
27.05.2009, 11:39
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.05.2009, 11:39
Помогаю со студенческими работами здесь

Найти номер строки матрицы в которой находится самая длинная серия
Задача такая Для заданной целочисленной квадратной матрицы F найти номер строки в которой...

Найти номер строки, для которой среднеарифметическое значение ее элементов наименьшее.
2. Дан целочисленный массив X (n и m вводится пользователем). Найти номер строки, для которой...

Найти номер строки, для которой среднеарифметическое значение ее элементов максимально
Имеется двумерный массив целых чисел размерностью 6*4. Найти номер строки, для которой...

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


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

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

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