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

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

18.05.2012, 19:49. Показов 2654. Ответов 1
Метки нет (Все метки)

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

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

Найти в каждой строке наибольший элемент и поменять его местами с соответствующим элементом главной диагонали
В заданной квадратной матрице G найти в каждой строке наибольший элемент и поменять его местами с...

Дана целочисленная квадратная матрица. Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали
9. Дана целочисленная квадратная матрица. Найти в каждой строке наибольший элемент и поменять его...

В каждой строке матрицы найти максимальный элемент, и поменять его местами с элементом главной диагонали
В двумерном массиве, состоящем из n×m элементов, в каждой строке найти максимальный элемент и...

1
Фрилансер
3414 / 2811 / 3000
Регистрация: 08.02.2012
Сообщений: 8,263
Записей в блоге: 1
19.05.2012, 09:08 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
Const n=3;
Var i,j:integer;
    A:array[1..n,1..n] of integer;
Function Max(i:integer):integer;
Var j,max1:integer;
Begin
    max1:=-50;
    For j:=1 to n do
     if A[i,j]>max1 then max1:=A[i,j];
    Max:=max1;
End;
Begin
    For i:=1 to n do Begin
     For j:=1 to n do Begin
      A[i,j]:=Random(25);write(A[i,j]:3);End;
     writeln
    End;
    For i:=1 to n do 
     A[i,i]:=Max(i);
    writeln('Преоброзованная матрица');
    For i:=1 to n do Begin
     For j:=1 to n do 
      write(A[i,j]:3);
     writeln;
    End;
End.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.05.2012, 09:08

В каждой строке матрицы наибольший элемент поменять местами с элементом главной диагонали
В общем вот задачки, буду очень благодарен вам за помощь: 1. Найти в каждой строке матрицы n, m...

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

Найти в каждой строке матрицы максимальный элемент и поменять его местами с элементами главной диагонали
Дана матрица с(12,12). Найти в каждой строке максимальный элемент и поменять его местами с...

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


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

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

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