дана последовательность целых положительных чисел.найти произведение только тех из них которые больше заданного числа m.если таких чисел нет,то выдать сообщение об этом Паскаль!!! можно с обьяснениями плиз))
program test;
var a: array[1..10] of integer;m, i: integer;
total: longint;
begin
randomize;
total:=1;
for i:=1 to 10 do
begin
a[i]:=random(20)+1;
write(a[i], );
end;
writeln();
write(Enter the number: );
readln(m);
for i:=1 to 10 do
begin
if a[i] > m then
total:= total*a[i];
end;
if total > 1 then
writeln(Total = , total)
else
writeln(Error);
readln;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
