Количество дней в ноябре с нулевой температрурой - Turbo Pascal
Формулировка задачи:
Температура воздуха в ноябре (целое число в диапазоне от 0 до 10) задается случайным образом. Сколько дней в ноябре было с температурой 0 градусов
Решение задачи: «Количество дней в ноябре с нулевой температрурой»
textual
Листинг программы
var November : array[1..30] of integer; i, k : integer; begin k := 0; randomize; for i := 1 to 30 do begin November[i] := random(11); write(November[i]:4); if November[i] = 0 then inc(k) end; writeln; writeln('количество дней с температурой 0 градусов: ', k); readln end.
Объяснение кода листинга программы
- Создается переменная
November
типа массив целых чисел размером 30. - Инициализируется переменная
k
значением 0. - Вызывается функция
randomize
, которая инициализирует генератор случайных чисел. - Запускается цикл
for
с переменнойi
равной 1 и до 30. - Внутри цикла каждому элементу массива
November
присваивается случайное число от 0 до 10 (используется операторrandom(11)
). - Выводится значение каждого элемента массива
November
с помощью функцииwrite
. - Проверяется условие
if November[i] = 0 then inc(k)
- если текущее значение элемента равно 0, то увеличивается значение переменнойk
на 1. - После завершения цикла выводится общее количество дней с температурой 0 градусов с помощью функции
writeln
. - Считывается ввод пользователя с помощью функции
readln
.