Дан двумерный массив размером MxN массив заполнен случайными числами от 5 до 10. Найти произведение значений по главной диагонали и сумму по побочной диагонали.
НУЖНО НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ К ЭТОМУ. ПОМОГИТЕ ПОЖАЛУЙСТА !
НУЖНО НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ К ЭТОМУ. ПОМОГИТЕ ПОЖАЛУЙСТА !
Answers & Comments
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.