Question

Дан двумерный массив размером MxN массив заполнен случайными числами от 5 до 10. Найти произведение значений по главной диагонали и сумму по побочной диагонали.

НУЖНО НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ К ЭТОМУ. ПОМОГИТЕ ПОЖАЛУЙСТА !

Answer 1

var

A : array [1..999, 1..999] of Integer;

p, s, i, j, m, n: Integer;

begin

// Инициализация переменных для суммы и произведения

s:= 0;

p:= 1;

Write('Введите количество строк - ');

ReadLn(m);

Write('Введите количество столбцов - ');

ReadLn(n);

// Заполнение

for i:=1 to m do

for j:=1 to n do

A[i,j]:=Random(6)+5;

// Вывод массива

for i:=1 to m do

begin

for j:=1 to n do

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

WriteLn();

end;

// Подсчёт произведения и суммы

for i:= 1 to m do

begin

j:= i;

s+= A[m-i+1,j];

p*= A[i,j];

end;

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

WriteLn('Сумма = ', s);

end.