Сколько введенных чисел больше 10 - Pascal
Формулировка задачи:
Создайте программу, запрашивающую у пользователя 10 чисел. Если больше 4-х из них окажутся больше 10, выведите сообщение «Караул! Сейчас все взорвется». Иначе сообщите, сколько введенных чисел больше 10, а сколько больше 5.
Решение задачи: «Сколько введенных чисел больше 10»
textual
Листинг программы
var x: real; i, g5, g10: integer; begin g5 := 0; g10 := 0; writeln('Введите 10 чисел:'); for i := 1 to 10 do begin write(i:2, ': '); readln(x); if x > 10 then inc(g10); if x > 5 then inc(g5) end; if g10 > 4 then write('Караул! Сейчас все взорвется') else begin writeln('Количество чисел, больших десяти: ', g10); write('Количество чисел, больших пяти: ', g5) end; readln end.
Объяснение кода листинга программы
- Объявляется переменная
x
типа real для ввода чисел с плавающей точкой. - Объявляются переменные
i
,g5
иg10
типа integer для использования в цикле и подсчете количества чисел. - Устанавливаются начальные значения
g5
иg10
как 0. - Выводится сообщение
Введите 10 чисел:
. - Запускается цикл, который выполняется 10 раз (от 1 до 10).
- Для каждого значения
i
в цикле пользователь вводит число, которое записывается в переменнуюx
. - Проверяется, больше ли введенное число 10, и если да, увеличивается значение переменной
g10
на 1. - Проверяется, больше ли введенное число 5, и если да, увеличивается значение переменной
g5
на 1. - После цикла проверяется количество чисел, больших 10. Если их больше 4, выводится сообщение
Караул! Сейчас все взорвется
. - Если количество чисел, больших 10, меньше или равно 4, выводится количество чисел, больших 10, и количество чисел, больших 5.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д