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

Поменять местами первый столбец матрицы и столбец, имеющий минимальную сумму элементов

22.10.2019, 10:00. Показов 1725. Ответов 1

Помогите пожалуйста с задачей, мы сейчас пишем рк , а я плохо разбираюсь в программировании.

Задана матрица C(m,n), где m<=20,n<=10. Поменять местами первый столбец этой матрицы и столбец, имеющий минимальную сумму элементов. Количество строк и столбцов матрицы вводиться по запросу.Если столбец с минимальной суммой первый, то напечатать соответствующее сообщение.Исходную и преобразованную матрицы напечатать.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.10.2019, 10:00
Ответы с готовыми решениями:

Поменять местами столбец с максимальным элементом и первый столбец матрицы
ввести двухмерный массив 3*5.Поменять местами столбец с максимальным элементом и первый столбец...

Поменять местами первый столбец и столбец, где находится максимальный элемент матрицы (C# -> Java)
Дан двумерный массив вещественных чисел из 4 столбцов и 3 строк. Поменять местами первый столбец и...

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

Поменять местами первый столбец и столбец и столбец, где находится максимальный элемент массива
Дан двумерный массив вещественных чисел из 4 столбцов и 3 строк. Поменять местами первый столбец и...

1
Эксперт Pascal/Delphi
2360 / 1279 / 1484
Регистрация: 29.08.2014
Сообщений: 4,603
23.10.2019, 06:53 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
//uses windows;//для Lazarus убрать коментарий
const m=10;n=7;
type
  arr=array[1..m,1..n] of integer;
var
  c:arr;
  i,j,idx:integer;
  sum_i,sum_min:longint;
  t:integer;
function SumSt(a:arr;j:integer):longint;//ищет сумму столбца j
var
  i:integer;
  s:longint;
begin
  s:=0;
  for i:=1 to m do s:=s+a[i,j];
  SumSt:=s;
end;
 
procedure PrintMatrix(a:arr);//печать матрицы
var
  i,j:integer;
begin
  for i:=1 to m do begin
    for j:=1 to n do
      write(a[i,j]:5);
    writeln;
  end;
end;
begin
//  SetConsoleOutputCP(CP_UTF8);//для Lazarus убрать коментарий
  randomize;
//заполняем матрицу случайными числами [-50..50]
  for i:=1 to m do
    for j:=1 to n do c[i,j]:=random(101)-50;
  writeln('оригинальная матрица:');
  PrintMatrix(c);
//ищем столбец с минимальной суммой
writeln('суммы столбцов:');
  sum_min:=SumSt(c,1);idx:=1;write(sum_min:5);
  for j:=2 to n do begin
    sum_i:=SumSt(c,j);
    write(sum_i:5);
    if sum_i<sum_min then begin
      sum_min:=sum_i;
      idx:=j;
    end;
  end;
  writeln;
  if idx=1 then writeln('Первый столбец и есть столбец с минимальной суммой') else begin   
//меняем местами значения 1 столбца и столбца с минимальной суммой
    for i:=1 to m do begin
      t:=c[i,1];
      c[i,1]:=c[i,idx];
      c[i,idx]:=t;
    end;
    writeln('полученная матрица:');
    PrintMatrix(c);
  end;
  readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.10.2019, 06:53

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

Дана матрица размера N x N. Поменять местами первый столбец и столбец с минимальным кол-вом отрицательных элементов
Дана матрица размера N x N. Поменять местами первый столбец и столбец с минимальным кол-вом...

Поменять местами столбец матрицы с наибольшей суммой элементов и заданный столбец (результат не выводится)
Задана матрица произвольной размерности. Поменять местами столбец матрицы, имеющий наибольшую сумму...

Поменять местами столбец с максималь- ным элементом и первый столбец массива
Ввести двумерный массив размером 3*5. Поменять местами столбец с максималь- ным элементом и первый...

Поменять местами столбец с максимальным элементом и первый столбец массива
ввести двухмерный массив 3*5. Поменять местами столбец с максимальным элементом и первый столбец...


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

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

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