Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Сколько времени займет обработка всех деталей https://www.cyberforum.ru/ turbo-pascal/ thread707497.html
Каждая из деталей должна последовательно пройти обработку на каждом из трех станков. Продолжительности обработки каждой детали на каждом станке вводятся группами по 3 числа, до исчерпания ввода....
Turbo Pascal Дана не пустая последовательность слов из строчных английских букв, между соседними словами пробел, за последним словом - точка
Дана не пустая последовательность слов из строчных английских букв, между соседними словами пробел, за последним словом - точка. Напечатать в алфавитном порядке все глухие согласные буквы, которые...
Turbo Pascal В алфавитном порядке напечатать все строчные английские гласные буквы, входящие в текст
Помогите пожалуйста, у меня получилось как-то так. uses crt; var s: string; i, count: integer; flag: boolean; const sim = 'd';
Turbo Pascal Напечатать слова предложения в таком порядке, чтобы последняя буква каждого слова совпадала с первой буквой следующего слова Помогите пожалуйста, заранее спасибо. Добавлено через 22 часа 21 минуту ап, выручите пожалуйста( Добавлено через 18 часов 13 минут ап, помогите пожалуйста https://www.cyberforum.ru/ turbo-pascal/ thread707466.html
Turbo Pascal Описать процедуру, которая выделяет из текста предпоследний элемент https://www.cyberforum.ru/ turbo-pascal/ thread707454.html
Помогите написать программу, пожалуйста. type=текст file of char; описать процедуру, которая выделяет с текста tпредпоследний елемент
Turbo Pascal Определить max и min отклонения от среднегеометрического из элементов массива
Дан массив Х из 36 элементов.Вычислить y(i)(|a*sin(x(i)-1)^3|)/2*a^5 где а-любое число Определить max и min отклонения от среднегеометрического из элементов массива y,удовлетворяющих...
Turbo Pascal Проверка массива
помогите пожалуйста, мне нужно сделать функцию проверки массива program test2; var bilet : array of integer; bil : integer; et : integer; begin bil := bilet + bilet + bilet; et := bilet +...
Turbo Pascal Найти максимальную сумму из 20 подряд стоящих элементов Дан массив А {500 элементов}. Найти max сумму из 20 подряд стоящих элементов max{(a(1)+...+a(20),(a(2)+...+a(21),(A(3)+...+A(22),...} https://www.cyberforum.ru/ turbo-pascal/ thread707397.html
Turbo Pascal Трехмерная прямоугольная трапеция https://www.cyberforum.ru/ turbo-pascal/ thread707395.html
Добрый день уважаемые программисты. Не знаю как создать прог. код. Нужно,чтобы на экране была трехмерная прямоугольная трапеция. Надеюсь на вашу помощь.
Turbo Pascal Отсортировать матрицу по убыванию первых элементов строк как эффективно отсортировать матрицу по убыванию первых элементов строк, если описывается она так type t_row = array of integer; t_matr = array of t_row; вот код который написал я, но... https://www.cyberforum.ru/ turbo-pascal/ thread707392.html
Модератор
1600 / 1060 / 480
Регистрация: 17.07.2012
Сообщений: 5,245
24.11.2012, 23:32 0

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

24.11.2012, 23:32. Просмотров 2543. Ответов 3
Метки (Все метки)

Ответ

Держи:
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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.11.2012, 23:32
Готовые ответы и решения:

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

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

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

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

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