Задать вопрос
13 марта, 07:29

Pascal

Дана квадратная матрица порядка М. Обнулите элементы матрицы, лежащие ниже главной диагонали. Условный оператор не использовать.

+3
Ответы (1)
  1. 13 марта, 09:18
    0
    Const m=5;

    var

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

    i, j:integer;

    begin

    Randomize;

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

    for i:=1 to m do

    begin

    for j:=1 to m do

    begin

    a[i, j]:=random (100) ;

    write (a[i, j]:4) ;

    end;

    writeln;

    end;

    for i:=2 to m do

    for j:=1 to i-1 do

    a[i, j]:=0;

    writeln ('Полученный массив:') ;

    for i:=1 to m do

    begin

    for j:=1 to m do write (a[i, j]:4) ;

    writeln;

    end;

    end.

    Пример:

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

    12 76 20 65 71

    27 52 36 45 52

    9 69 8 69 46

    89 69 52 76 31

    71 25 7 62 89

    Полученный массив:

    12 76 20 65 71

    0 52 36 45 52

    0 0 8 69 46

    0 0 0 76 31

    0 0 0 0 89
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Pascal Дана квадратная матрица порядка М. Обнулите элементы матрицы, лежащие ниже главной диагонали. Условный оператор не использовать. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы