Массив осадков: определить, был ли дождь 5 дней подряд - Free Pascal
Формулировка задачи:
Создать массив, предназначенный для хранения количества осадков, выпавших за каждый день месяца(31 день).Заполнить массив числами в диапазоне от 0 до 30.Определить был ли дождь 5 дней подряд?
Решение задачи: «Массив осадков: определить, был ли дождь 5 дней подряд»
textual
Листинг программы
var a:array [1..31] of integer;
i:integer;
begin
randomize;
for i:=1 to 31 do
begin
a[i]:=random(25);
write ('den: ',i:3);
writeln (' osadkov: ',a[i]:3);
end;
Объяснение кода листинга программы
- Объявляется массив a размером 31 элемент.
- Инициализируется случайными значениями от 0 до 24.
- Выводится информация о количестве осадков за день (неделя от начала месяца)
- Выводится количество осадков за день
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д