Дана матрица В (5,5). Вычислить произведение элементов, стоящих выше главной

диагонали. Напечатать матрицу В и значение произведения.

написать код программы в паскале.

Question

Информатика

Северьян

26 июля, 04:46

Дана матрица В (5,5). Вычислить произведение элементов, стоящих выше главной

диагонали. Напечатать матрицу В и значение произведения.

написать код программы в паскале.

+1

Ответы (1)

Знаете ответ на вопрос?

Оза · Answer 1

Var

i, j, pr:integer;

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

begin

randomize;

pr:=1;

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

for i:=1 to 5 do

begin

writeln;

for j:=1 to 5 do

begin

a[i, j]:=random (4) + 1;

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

if i
end

end;

writeln;

writeln ('Произведение ', pr)

end.