Задать вопрос
24 декабря, 21:02

Дан массив R (М, M). Переставить строку с минимальным элементом на главной диагонали со строкой с заданным номером. PascalABC

+1
Ответы (1)
  1. 24 декабря, 21:10
    0
    Const

    m=10;

    var

    R:array[1 ... m, 1 ... m] of integer;

    i, j, t, p, q:integer;

    begin

    Write ('Введите номер строки (1 ... 10) для перестановки: ') ;

    Read (q) ;

    Randomize;

    Writeln ('Исходный массив') ;

    for i:=1 to m do begin

    for j:=1 to m do begin

    R[i, j]:=Random (90) + 10;

    Write (R[i, j]:3) ;

    end;

    Writeln

    end;

    p:=1;

    for i:=2 to m do

    if R[i, i]
    if pq then begin

    Writeln ('Результирующий массив') ;

    for j:=1 to m do begin

    t:=R[p, j]; R[p, j]:=R[q, j]; R[q, j]:=t

    end;

    for i:=1 to m do begin

    for j:=1 to m do Write (R[i, j]:3) ;

    Writeln

    end

    end

    end.

    Пример

    Введите номер строки (1 ... 10) для перестановки: 3

    Исходный массив

    50 86 52 85 96 69 44 51 20 77

    55 79 39 73 98 74 65 65 63 80

    64 89 83 55 98 74 85 63 90 52

    37 42 64 84 66 78 67 31 56 34

    69 18 34 48 42 44 12 91 67 47

    72 19 14 22 53 61 13 97 87 31

    83 80 61 67 50 22 25 55 16 29

    16 44 19 39 20 55 65 44 23 63

    72 93 96 52 79 27 38 52 40 15

    75 70 44 34 50 88 57 66 97 29

    Результирующий массив

    50 86 52 85 96 69 44 51 20 77

    55 79 39 73 98 74 65 65 63 80

    83 80 61 67 50 22 25 55 16 29

    37 42 64 84 66 78 67 31 56 34

    69 18 34 48 42 44 12 91 67 47

    72 19 14 22 53 61 13 97 87 31

    64 89 83 55 98 74 85 63 90 52

    16 44 19 39 20 55 65 44 23 63

    72 93 96 52 79 27 38 52 40 15

    75 70 44 34 50 88 57 66 97 29
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дан массив R (М, M). Переставить строку с минимальным элементом на главной диагонали со строкой с заданным номером. PascalABC ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1. Дан двумерный массив размером 3x5. Вычислить сумму элементов массива 2. Дан массив целых чисел размеров 4 х4. Заменить все элементы главной диагонали на нули. Вывести на экран монитора содержимое массива до обработки и после обработки 3.
Ответы (1)
1. Дан одномерный массив размерностью 10, заполненный целыми числами, введенными с клавиатуры, и величина N. Отрицательные элементы заменить на N. Измененный массив вывести на экран одной строкой. 2.
Ответы (1)
1) Дан массив из n элементов. Найти номер наименьшего элемента массива. 2) Дан массив из n элементов. Упорядочить массив по возрастанию. 3) Дан массив из n элементов. Упорядочить массив по убыванию.
Ответы (1)
Хотя бы 3-4 задачи! 1) Дан одномерный целочисленный массив размерностью N. Найдите количество элементов, которые кратны 3 (5). 2) Дан одномерный целочисленный массив А, состоящий из N элементов. Найти сумму всех четных элементов массива.
Ответы (1)
Дано массивы A (N1, N1), B (N2, N2), C (N3, N3). найти в каждой строке исходного массива наименьший элемент и переставить его с элементом стоящим на главной диагонали.
Ответы (1)