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

Найти наибольший и наименьший элемент матрицы и поменять их местами

13.05.2016, 22:02. Показов 3898. Ответов 1

Даны натуральные числа N,M и матрица разрядности NxM действительных чисел, где n,m>=10. Найти наибольший и наименьший элемент матрицы и поменять их местами.

Вот что написал, дальше помогите

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Var 
n,m,i,j,min,max:integer; 
A:array[1..10,1..10] of integer; 
begin 
Repeat 
write('m='); 
readln(m); 
write('n='); 
rceadln(n); 
if (m <= 0) and (m > 10) and (n<= 0) and (n > 10) then 
writeln('Исходные данные не верны'); 
until (m > 0) and (m<=10) and (n>0) and (n<=10); 
Randomize; 
For i:=1 to m do 
for j:=1 to n do 
A[i,j]:=random(20)-5;
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.05.2016, 22:02
Ответы с готовыми решениями:

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

Найти наибольший и наименьший элемент матрицы и поменять их местами
Помогите написать программу и составить блок-схему&quot;Дана действительная квадратная матрица порядка...

В каждой строке матрицы поменять местами наибольший и наименьший элемент
Дана действительная матрица размером mxn. В каждой строке поменять местами наибольший и наименьший...

Матрицы. Найти наибольший и наименьший элементы матрицы и поменять их местами
В каждой строке матрицы А(n*n) найти наибольший и наименьший элементы матрицы и поменять их местами

1
2509 / 1130 / 582
Регистрация: 07.06.2014
Сообщений: 3,281
13.05.2016, 23:22 2
Цитата Сообщение от Fellane1337 Посмотреть сообщение
где n,m>=10.
судя по твоему коду n,m<=10 ?

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
For i:=1 to n do begin
  for j:=1 to m do begin
      A[i,j]:=random(20)-5;
      Write(A[i,j]:3,' ');
  end;
  WriteLn;
end;
 
// поиск индексов минимального и максимального
imin :=1; jmin:=1;
imax:=1; jmax:=1;
For i:=1 to n do 
  for j:=1 to m do 
  begin
    if A[i,j]>A[imax,jmax] then begin imax:=i; jmax:=j end;
    if A[i,j]<A[imin,jmin] then begin imin:=i; jmin:=j end;
  end; 
 
// поменять местами
t:=A[imin,jmin];
A[imin,jmin] := A[imax,jmax];
A[imax,jmax] := t;
 
// вывести матрицу
For i:=1 to n do 
  begin
    for j:=1 to m do Write(A[i,j]:3,' ');
    WriteLn;
  end;
 
Конец сказки.
Добавлено через 1 минуту
Цитата Сообщение от Fellane1337 Посмотреть сообщение
матрица разрядности NxM действительных чисел,
у тебя в программе задаётся матрица с целыми числами, а в задании - с вещественными.
надо:
Pascal
1
A:array[1..10,1..10] of real;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.05.2016, 23:22

Помощь в написании контрольных, курсовых и дипломных работ здесь.

В каждой строке матрицы А nxn найти наибольший и наименьший элементы матрицы и поменять их местами
Программа должна содержать процедуру ввода массива, процедуру вывода массива, процедуру обработки...

Найти наибольший и наименьший элемент матрицы и поменять их местами
Задача:Найти наибольший и наименьший элемент таблицы А и поменять их местами. Прошу решить даную...

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

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

Найти наибольший и наименьший элементы матрицы и поменять их местами
9 P(N,N) Найти в каждой строке наибольший элемент и поменять его местами с элементом главной...

Найти наибольший и наименьший элементы матрицы и поменять их местами.
Хотел попросить о помоши в решении данной задачи . Условие: Найти наибольший и наименьший...


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

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

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