Question

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


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

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<j then pr:=pr*a[i,j]
      end
   end;
writeln;
writeln('Произведение ',pr)
end.