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

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

+3
Ответы (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 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы