Question

найти произведение всех элементов двумерного массива, больших заданного числа

Answer 1

язык какой? 
Паскаль
type massive=array[1..10,1..10] of integer;
var m:massive;
pr:real;
digit:integer;
i,k:byte;
flag:boolean; 
begin
for i:=1 to 10 do
for k:=1 to 10 do
readln(m[i,k]); //заполнение массива

writeln('Введите границу: ');
readln(digit);
pr:=1;
flag:=false;
for i:=1 to 10 do
for k:=1 to 10 do
if m[i,k]>digit then
 begin
pr:=pr*m[i,k]; //все, что больше заданного перемножаем
flag:=true;
end;
if flag=false then writeln('Чисел больше заданного нет.')
else writeln('Общее произведение: ',pr:1:0);
END.