Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 13.05.2015
Сообщений: 1

Поменять местами минимальный элемент и элемент побочной диагонали

13.05.2015, 01:04. Показов 1801. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Задана матрица Х[N,N], где N<=15. В каждой строке матрицы поменять местами минимальный элемент и элемент побочной диагонали. Преобразованную матрицу вывести на экран.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
13.05.2015, 01:04
Ответы с готовыми решениями:

В каждом столбце матрицы найти минимальный элемент и поменять его местами с элементом на побочной диагонали в этом столбце.
Задана квадратная вещественная матрица размером N. В каждом столбце матрицы найти минимальный элемент и поменять его местами с элементом на...

Поменять местами максимальный элемент выше главной диагонали и минимальный элемент ниже главной диагонали
Определить максимальный элемент среди элементов квадратной матрицы размера 5x5, лежащих выше главной диагонали, и минимальный элемент среди...

Поменять местами первую строку со строкой проходящей через наибольший по модулю элемент побочной диагонали
Задана целочисленная матрица Н(1..n.1..n). Поменять местами первую строку со строкой проходящей через наибольший по модулю элемент побочной...

1
Почетный модератор
 Аватар для Puporev
64316 / 47612 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
13.05.2015, 06:38
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
const max=15;
var x:array[1..max,1..max] of integer;
    n,i,j,jmn,t:integer;
begin
randomize;
repeat
write('Введите размер матрицы от 2 до ',max,' n=');
readln(n);
until n in [2..max];
writeln('Исходная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    x[i,j]:=random(50);
    write(x[i,j]:4);
   end;
  writeln;
 end;
for i:=1 to n do
 begin
  jmn:=1;
  for j:=2 to n do
  if x[i,j]<x[i,jmn] then jmn:=j;
  t:=x[i,jmn];
  x[i,jmn]:=x[i,n-i+1];
  x[i,n-i+1]:=t;
 end;
writeln('Измененная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(x[i,j]:4);
  writeln;
 end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
13.05.2015, 06:38
Помогаю со студенческими работами здесь

Найти минимальный элемент в каждом столбце матрицы и поменять их местами с элементами на главной диагонали
Дана целочисленная матрица размерностью 10 на 10. найти минимальный элемент в каждом столбце матрицы и поменять их местами с элементами на...

Поменять местами строку, содержащую минимальный элемент главной диагонали матрицы, со строкой с номером q
Ребят помогите сделать задание. Думал, думал. ничего не получается. Вот условие: Даны натуральные числа n,q и квадратная матрица порядка n...

Поменять местами минимальный элемент матрицы и элемент, значение которого равно заданному X
Дана вещественная матрица Z размером 8х10 и число X. Поменять местами минимальный элемент матрицы и элемент, значение которого равно...

Поменять местами минимальный элемент массива и первый элемент, имеющий нулевое значение
Поменять местами минимальный элемент массива и первый элемент, имеющий нулевое значение. Вот шапка: Uses Crt; Type Mas = array of...

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


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru