Дано двумерный массив из 5 строк и 10 столбцов. Заполнить таблицу с помощью "random". Диапазон от 1 до 10. Найти произведение всех элементов всего массива.

Ответ:

Var i, j:Integer ;p:real;

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

Begin

P:=1;

For i:=1 to 5 do begin

For j:=1 to 10 do begin

A[i, j]:=random(10)+1;

Write(' ', a[i, j]) ;

End;

Writeln;

End;

Writeln ;

For i:=1 to 5 do begin

For j:=1 to 10 do begin

P:=p*a[i, j] ;

End;end;

Writeln ;

Writeln(' ', p) ;

End.