В двумерном массиве найти произведение элементов матрицы, находящихся ниже главной диагонали - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Найти произведение элементов матрицы, находящихся ниже главной диагонали. Имя массива-R. Размер массива: 4,4. Тип данных - действительный. Заполнена матрица должна быть рандомно (randomize) числами от 0 до 50.

Решение задачи: «В двумерном массиве найти произведение элементов матрицы, находящихся ниже главной диагонали»

textual
Листинг программы
uses crt;
var a: array [1..4,1..4] of integer;
    i,j,p: integer;
begin
writeln('Дана матрица');
p:=1;
for i:=1 to 4 do
    begin
    for j:=1 to 4 do
        begin
        a[i,j]:=random(50);
        write(a[i,j]:3);
        if j<i then p:=p*a[i,j];
        end;
    writeln;
    end;
writeln('Произведение ниже главной диагонали=',p);
end.

Объяснение кода листинга программы

  1. В начале объявляются необходимые переменные: массив a размером 4x4, счетчики i и j для прохода по диагоналям матрицы, и переменная p для хранения произведения.
  2. Выводится сообщение о том, что дана матрица.
  3. Переменная p инициализируется единицей.
  4. Запускается цикл for i := 1 to 4 do, который будет выполняться 4 раза, для каждого элемента массива a.
  5. Внутри цикла запускается вложенный цикл for j := 1 to 4 do, который также будет выполняться 4 раза, для каждого элемента массива a.
  6. Внутри вложенного цикла присваивается случайное значение каждому элементу массива a[i,j].
  7. Выводится значение элемента массива a[i,j] с помощью функции write(a[i,j]:3).
  8. Если j < i, то переменная p обновляется значением произведения элементов a[i,j] и a[i,j+1].
  9. По завершении вложенного цикла выводится сообщение о произведении ниже главной диагонали и значение переменной p.
  10. Программа завершается.

Оцени полезность:

9   голосов , оценка 4.556 из 5
Похожие ответы