Количество дней в ноябре с нулевой температрурой - Turbo Pascal

Формулировка задачи:

Температура воздуха в ноябре (целое число в диапазоне от 0 до 10) задается случайным образом. Сколько дней в ноябре было с температурой 0 градусов

Код к задаче: «Количество дней в ноябре с нулевой температрурой - Turbo Pascal»

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.

13   голосов, оценка 3.692 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы