18 / 18 / 2
Регистрация: 24.10.2010
Сообщений: 76
1

Найти строку матрицы с минимальной суммой элементов, и строку с максимальной

07.11.2010, 22:45. Показов 1545. Ответов 2
Метки нет (Все метки)

Дан квадратный массив. Найти строку с минимальной суммой элементов, и сторку с максимальной. Поэлементно перемножить эти строки, создав одномерный массив B.

Похоже ошибка в нахождении строк с макс и мин суммой.

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..100,1..100] OF INTEGER;
b,s,mmax,mmin,i,j,m,n,smax,smin:integer;
begin
 writeln('m=?');
 readln(m);
 n:=m;
 for i:=1 to m do
  for j:=1 to n do
   begin
    writeln('vvedite element');
    readln(a[i,j]);
   end;
 for i:=1 to m do
  begin
   for j:=1 to n do
    s:=s+a[i,j];
   if s>smax then
    begin
     mmax:=i;
     s:=smax;
    end;
    if s<smin then
     begin
      mmin:=i;
      s:=smin;
     end;
   s:=0;
  end;
 write('b= ');
 for i:=1 to n do
  begin
 b:=a[mmin,i]*a[mmax,i];
  write(b,' ');
  end;
  readln;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.11.2010, 22:45
Ответы с готовыми решениями:

Дан двумерный массив. Найти строку с минимальной суммой элементов, столбец с максимальной суммой элементов
а)Строку с минимальной суммой элементов б)Столбец с максимальной суммой элементов Дополнительный...

Найти строку матрицы с максимальной суммой значений элементов
объявить два массива целых чисел: одномерный размеренностью М и двумерный размеренностью N*M...

Найти строку матрицы с максимальной суммой модулей элементов
Среди столбцов заданой целочисленной матрицы, содержащих только нечетных элементов, найти строку с...

Найти строку матрицы с максимальной по модулю суммой элементов
Выполнить следующие задания, если задана действитель- ная матрица порядка nxm. Среди строк...

2
ЧакЭ одобряЭ
284 / 283 / 86
Регистрация: 27.12.2009
Сообщений: 1,767
07.11.2010, 23: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
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
var
  a: array[1..100, 1..100] of integer;
  b: array[1..100] of integer;
  i, j, min, max, mini, maxi, sum, k: integer;
 
begin
  for i := 1 to 5 do 
  begin
    for j := 1 to 5 do
      a[i, j] := random(15);
  end;
  writeln('исходная матрица');
  for i := 1 to 5 do 
  begin
    for j := 1 to 5 do
      write(a[i, j], ' ');
    writeln;
  end;
  min := 10000;
  for i := 1 to 5 do 
  begin
    sum:=0;
    k := i;
    for j := 1 to 5 do 
    begin
      sum := sum + a[k, j];
    end;
    if sum < min then begin
      min := sum;
      mini := k;
    end;
  end;
  sum := 0;
  max := -10000;
  for i := 1 to 5 do 
  begin
    k := i;
    for j := 1 to 5 do
      sum := sum + a[k, j];
    if sum > max then begin
      max := sum;
      maxi := k;
    end;
    sum := 0;
  end;
  writeln('минимальная сумма строки  ', min,' строка ', mini);
  writeln('максимальная сумма строки  ', max,' строка ',maxi);
  k := 1;
  while (k <= 5) do 
  begin
    b[k] := a[mini, k] * a[maxi, k];
    inc(k);
  end;
  for i := 1 to 5 do 
    write(b[i], ' ');
end.
0
Неадекват и грубиян
310 / 297 / 301
Регистрация: 22.02.2010
Сообщений: 645
07.11.2010, 23:29 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
const n=5;
var  a:array[1..n,1..n]of integer;
     b:array[1..n]of integer;
     i,j,imax,imin:integer;
 
procedure nmax_min;
var tmp:array[1..n]of integer;
   s,im:integer;
begin
for i:=1 to n do
begin
    s:=0;
    for j:=1 to n do
    s:=s+a[i,j];
    tmp[i]:=s;
end;
imax:=1; imin:=1;
for i:=2 to n do
begin
    if tmp[i]>tmp[imax] then imax:=i;
    if tmp[i]<tmp[imin] then imin:=i;
end;
end;
 
 
begin
randomize;
for i:=1 to n do
begin
    for j:=1 to n do
    begin
        a[i,j]:=random(10)-5;
        write(a[i,j]:4);
    end;
    writeln;
end;
nmax_min;
writeln('Строка с максимальной суммой элементов= ',imax);
writeln('Строка с минимальной суммой элементов= ',imin);
for j:=1 to n do
begin
    b[j]:=a[imax,j]*a[imin,j];
    write(b[j]:4);
end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.11.2010, 23:29
Помогаю со студенческими работами здесь

Среди строк заданной целочисленной матрицы A(N,M) найти строку с максимальной суммой элементов
2. Среди строк заданной целочисленной матрицы A(N,M) найти строку с максимальной суммой элементов.

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

В матрице найти строку с минимальной суммой элементов
К примеру, если минимальная сумма во второй строке, то все верно выводит, а если в первой, то нет....

Найти строку с максимальной суммой элементов
Дан двухмерный массив. Найти строку с максимальной суммой элементов.


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

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

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