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

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

24.11.2012, 15:02. Просмотров 2392. Ответов 3
Метки нет (Все метки)

Найти максимальные элементы каждой строки исходной матрицы А(N,N) (N<=10) и поместить их на главную диагональ, а диагональные элементы поместить на место максимальных. Отпечатать исходную и преобразованную матрицы.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.11.2012, 15:02
Ответы с готовыми решениями:

Найти наибольшие элементы каждой строки матрицы и поместить их на главную диагональ
Найти наибольшие элементы каждой строки матрицы Z(16,16) и поместить их на главную диагональ....

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

В матрице найти наименьшие элементы в каждом столбце и поместить их на главную диагональ
Здравствуйте. Если это возможно,хотелось бы попросить помощи в рещении нескольких задач. ...

Создать в матрице два дополнительных столбца.В первый из них поместить минимальные элементы, а во второй максимальные элементы каждой строки
Дан произвольный двумерный массив целых чисел. Создать в нем два дополнительных столбца.В первый...

3
Модератор
1599 / 1059 / 480
Регистрация: 17.07.2012
Сообщений: 5,241
24.11.2012, 23:32 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
program Noname;
uses Crt;
const n=5;
var a:array[1..n,1..n] of Integer;
c:array[1..n] of Integer;
d:array[1..n] of Integer;
i,j,max:integer;
begin
ClrScr;
TextColor(14);
Writeln('Matrica:');
TextColor(15);
Randomize;
for i:=1 to n do
for j:=1 to n do a[i,j]:=Random(90)+10;
for i:=1 to n do
begin
for j:=1 to n do
if a[i,j]<10 then Write(a[i,j],'  ')
else Write(a[i,j],' ');
Writeln;
end;
TextColor(14);
Writeln('Polucheniy massiv:');
TextColor(15);
for i:=1 to n do
d[i]:=a[i,i];
for i:=1 to n do
begin
max:=1;
for j:=1 to n do
if a[i,j]>a[i,max] then max:=j;
c[i]:=a[i,max];
a[i,max]:=d[i];
end;
for i:=1 to n do
a[i,i]:=c[i];
for i:=1 to n do
begin
for j:=1 to n do
if a[i,j]<10 then Write(a[i,j],'  ')
else Write(a[i,j],' ');
Writeln;
end;
Readln;
end.
0
0 / 0 / 0
Регистрация: 09.11.2012
Сообщений: 14
27.11.2012, 00:17  [ТС] 3
Спасибо. А можно ли как-то обойтись без использования переменной j?

Добавлено через 8 минут
А также без использования массивов c и d?
0
Модератор
1599 / 1059 / 480
Регистрация: 17.07.2012
Сообщений: 5,241
28.11.2012, 18:40 4
Если честно,не знаю я не спец по массивам и матрицам.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.11.2012, 18:40

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

Найти в каждой строке минимальный и максимальный элементы и поместить их на место первого и последнего элемента строки соответственно
Помогите найти ошибку) неприсваивает program mn; uses crt; Var i,j,n,max,min,l,b:integer;...

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

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

На главную диагональ матрицы поместить наибольшие элементы
На главную диагональ матрицы А(К,К), К &lt;= 100 поместить наибольшие элементы этой матрицы (сначала...


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

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

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