Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
6 / 6 / 0
Регистрация: 12.12.2018
Сообщений: 23
1

Матрица. Поменять строки и столбцы местами

23.12.2018, 13:13. Просмотров 1552. Ответов 1

Добрый день! Подскажите, пожалуйста, как написать программу.
Дана матрица 4*4. Необходимо:
1) найти стобцы с наименьшим и наибольшим средним арифметическим значением элементов. Поменять эти столбцы местами.
2) найти строки с наименьшим и наибольшим средним арифметическим значением элементов. Поменять эти строки местами.
Спасибо, что прочитали
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.12.2018, 13:13
Ответы с готовыми решениями:

Дана целочисленная матрица размера 5x6. Поменять местами 1 и 2 столбцы
Дана целочисленная матрица размера 5x6. Поменять местами 1 и 2 столбцы.

Дана матрица размера 5 x 10. Поменять местами столбцы, содержащие минимальный и максимальный элементы матрицы
помогите исправить эту задачу чтобы выполнялось как сказано в условии uses crt; const n=5; ...

Поменять местами строки и столбцы матрицы
Даны два числа k1 и k2 и матрица размера 4 x 10. Поменять местами строки1/столбцы2 матрицы с...

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

__________________
1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5720 / 3431 / 2436
Регистрация: 22.11.2013
Сообщений: 9,632
Записей в блоге: 1
28.12.2018, 14:43 2
Лучший ответ Сообщение было отмечено New_Prog как решение

Решение

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
{ поиск столбцов }
s:=0; for i:=1 to m do s:=s+a[i,1];
mn:=1; mx:=1; mns:=s; mxs:=s;
for j:=2 to n do begin
  s:=0; for i:=1 to m do s:=s+a[i,j];
  if mns>s then begin
    mns:=s; mn:=j;
  end else if mxs<s then begin
    mxs:=s; mx:=j;
  end;
end;
{ обмен столбцов }
for i:=1 to m do begin
  s:=a[i,mn]; a[i,mn]:=a[i,mx]; a[i,mx]:=s;
end;
 
{ поиск строк }
s:=0; for j:=1 to n do s:=s+a[1,j];
mn:=1; mx:=1; mns:=s; mxs:=s;
for i:=2 to m do begin
  s:=0; for j:=1 to n do s:=s+a[i,j];
  if mns>s then begin
    mns:=s; mn:=i;
  end else if mxs<s then begin
    mxs:=s; mx:=i;
  end;
end;
{ обмен строк }
for j:=1 to n do begin
  s:=a[mn,j]; a[mn,j]:=a[mx,j]; a[mx,j]:=s;
end;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.12.2018, 14:43

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

Дана матрица размером nxn. Поменять местами к-ю и 1-ю строки (1<=k, 1<=n)
Выручайте! Заранее благодарна!

Дана матрица. Поменять строки с максимальной и минимальной суммой квадратов местами
Здравствуйте. Помогите написать программу, пожалуйста. &quot;Дан Массив B(M,N); M,N&lt;=100. Переставить...

В двумерном массиве поменять местами k и l столбцы местами.
В двумерном массиве поменять местами k и l столбцы местами.

Матрица. Поменять местами столбцы с максимальной и минимальной суммой элементов
Помогите пожалуйста.Нужно в прямоугольной матрице поменять местами столбцы с максимальной и...


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

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

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