Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 30.11.2014
Сообщений: 7
1

Удалить строку из матрицы А, размерности 8*5, сумма элементов которой минимальна

30.11.2014, 14:49. Просмотров 981. Ответов 1
Метки нет (Все метки)


Помогите написать программу.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.11.2014, 14:49
Ответы с готовыми решениями:

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

Найти строку, сумма элементов которой минимальна, и умножить на минимальную сумму каждый элемент матрицы
Дан массив А={2,14,1,9,2,6,5,8,12}. Найти строку, сумма элементов которой минимальна, и умножить на...

Дан массив А[3][3]={2,14,1,9,2,6,5,8,12}. Найти строку, сумма элементов которой минимальна, и умножить на минимальную сумму каждый элемент матрицы
Дан массив А={2,14,1,9,2,6,5,8,12}. Найти строку, сумма элементов которой минимальна, и умножить на...

Найти в файле строку, сумма чисел которой минимальна, и удалить ее
Создать текстовый файл, состоящий из случайного количества (не более 30-и) строк. В каждой строке...

1
0 / 0 / 5
Регистрация: 02.10.2014
Сообщений: 27
30.11.2014, 18:44 2
Лучший ответ Сообщение было отмечено Qwertus как решение

Решение

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
const
  n = 8;
  m = 5;
 
var
  a: array[1..n, 1..m] of integer;
  sum: array[1..n] of integer;
  i, j, temp, st: integer;
 
 
begin
  randomize;
  for i := 1 to n do 
    for j := 1 to m do
      a[i, j] := random(15);
  
  
  for i := 1 to n do 
  begin
    for j := 1 to m do
      sum[i] := a[i, j] + sum[i];
  end;
  
  st := 0;
  temp := sum[1];
  for i := 1 to n do
    if temp > sum[i] then 
    begin
      temp := sum[i];
      st := i;
    end;
 
  writeln('Исходный массив:');
  for i := 1 to n do 
  begin
    for j := 1 to m do
      write(a[i, j]:4); writeln; end; 
  
  writeln;
  
  for i := st to n - 1 do
    for j := 1 to m do
      a[i, j] := a[i + 1, j];
  
  writeln('Обработанный массив:');
  
  for i := 1 to n - 1 do 
  begin
    for j := 1 to m do
      write(a[i, j]:4); writeln; end;
 
  writeln('Сумма чисел в каждой сроке:');
  for i := 1 to n do
    write(sum[i]:3);
 
  writeln;
 
  writeln('Минимальное число: ', temp, ' Номер строки: ', st);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.11.2014, 18:44

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Поменять местами первую строку и строку сумма элементов которой минимальна
Дан двумерный массив размера NxM. Поменять местами первую строку и строку сумма элементов которой...

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

Определить номер строки матрицы, сумма элементов которой минимальна
дана матрица целых чисел Х. Определит номер строки матрицы,сумма элементов которой минимальна....

Определить номер строки матрицы, сумма элементов которой минимальна
Дана матрица X(n,m) целых чисел. Определить номер строки матрицы,сумма элементов которой...


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

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

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