Дана последовательность целых положительных чисел. Найти произведение только тех чисел, которые больше заданного числа М. Если таких нет, то выдать сообщение об этом.
Нужно решить в Паскале с помощью линейных массивов
Program p;
uses crt;
const N= 10; {N - количество чисел в последовательности}
var i,p, M:integer; a:array[1..N] of integer;
begin
p:=1;
write(введите число M=);readln(M);
writeln(введите исходный массив);
for i:=1 to N do {начало цикла по кол эл }
begin
write(a[,i,]=); readln(a[i]); {ввод эл массива}
if a[i]>M then p:=p*a[i];
end;
if M=1 then writeln( элементов > M нет)
else writeln(p=,p); {печать произведения}
readln
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
