Задать вопрос Регистрация
Помочь другим

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

     

    На Паскале.

     

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

Ответы 1

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

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years