Найти произведение всех элементов двумерного массива, больших заданного числа
Найти произведение всех элементов двумерного массива, больших заданного числа
Гость
Ответ(ы) на вопрос:
Гостьязык какой?
Паскаль
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.
Не нашли ответ?
Похожие вопросы