Question

Дан двухмерный массив найдите произведение элементов диагонали , произведение всех элементов массива , а также минимальный элемент массива В паскале пожалуйста​

Answer 1

Ответ:

Program abra;

Var

X : Array [1..20, 1..20] Of

real;

N : Integer;

P : Real;

i, j: Integer;

begin

WriteLn ('Вычисление произведения ');

Write ('Введите размерность:  N = ');

ReadLn (N);

WriteLn ('Введите элементы массива:');

For i := 1 To N Do

For j := 1 To N Do

Begin

Write ('X[', i, ',', j, '] = ');

ReadLn (X [i, j] );

End;

P := 1;

For i := 1 To N Do

For j := 1 To N Do

P := P * X [i, j];

if (X [i,j])=0 then writeln('присутствуют нулевые элементы')  else

WriteLn ('Произведение: P = ',p: 6: 1);

readln;

 end.

Объяснение:

Answer 2

В Паскале можно написать программу, которая будет решать данную задачу. Вот пример такой программы: ```pascal program ArrayOperations; const N = 3; // размер массива var arr: array[1..N, 1..N] of Integer; // двухмерный массив i, j, diagonalProduct, arrayProduct, minElement: Integer; // переменные для циклов и результатов begin // заполнение массива случайными числами for i := 1 to N do for j := 1 to N do arr[i, j] := Random(10) + 1; // случайное число от 1 до 10 // вывод исходного массива writeln('Исходный массив:'); for i := 1 to N do begin for j := 1 to N do write(arr[i, j]:3); writeln; end; // нахождение произведения элементов на диагонали diagonalProduct := 1; for i := 1 to N do diagonalProduct := diagonalProduct * arr[i, i]; // нахождение произведения всех элементов массива arrayProduct := 1; for i := 1 to N do for j := 1 to N do arrayProduct := arrayProduct * arr[i, j]; // нахождение минимального элемента массива minElement := arr[1, 1]; for i := 1 to N do for j := 1 to N do if arr[i, j] < minElement then minElement := arr[i, j]; // вывод результатов writeln('Произведение элементов на диагонали: ', diagonalProduct); writeln('Произведение всех элементов массива: ', arrayProduct); writeln('Минимальный элемент массива: ', minElement); end. ``` Эта программа создает двухмерный массив и заполняет его случайными числами от 1 до 10. Затем она находит произведение элементов на диагонали, произведение всех элементов массива и минимальный элемент массива. Результат выводится на экран. Например, при выполнении программы может быть получен следующий результат: ``` Исходный массив: 5 8 3 2 10 4 7 6 9 Произведение элементов на диагонали: 450 Произведение всех элементов массива: 3628800 Минимальный элемент массива: 2 ```