Дана последовательность целых положительных чисел. Отыскать творенье только тех чисел,

Дана последовательность целых положительных чисел. Отыскать творение только тех чисел, которые больше данного числа М. Если таких нет выдать сообщение об этом.

На Паскале.

Безотлагательно, и пожалуйста, без заумных команд, а так чтоб понятно было!

Задать свой вопрос
1 ответ

var m,x,n,p,i:integer; s:boolean;
begin
p:=1;
writeln('Vvedite kolichestvo chisel:');
read(n);
writeln('Vvedite chislo s kotorim sravnit:');
read(m);
writeln('Vvedite cifri:');
for i:=1 to n do begin
readln(x);
if mlt;x then begin p:=p*x; s:=true; end;
end;
if s=true then writeln('Proizvedenie - ',p) else writeln('Net takih chisel');
end.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт