Количество дней в ноябре с нулевой температрурой - 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.

Объяснение кода листинга программы

  1. Создается переменная November типа массив целых чисел размером 30.
  2. Инициализируется переменная k значением 0.
  3. Вызывается функция randomize, которая инициализирует генератор случайных чисел.
  4. Запускается цикл for с переменной i равной 1 и до 30.
  5. Внутри цикла каждому элементу массива November присваивается случайное число от 0 до 10 (используется оператор random(11)).
  6. Выводится значение каждого элемента массива November с помощью функции write.
  7. Проверяется условие if November[i] = 0 then inc(k) - если текущее значение элемента равно 0, то увеличивается значение переменной k на 1.
  8. После завершения цикла выводится общее количество дней с температурой 0 градусов с помощью функции writeln.
  9. Считывается ввод пользователя с помощью функции readln.

Оцени полезность:

13   голосов , оценка 3.692 из 5
Похожие ответы