Количество осадков ,выпавших за каждый день января, хранится в массиве. Определить колличество дней, в которые выпало осадков больше, чем в первый день месяца и напечатать их дату. Pascal ABC. Помогите, пожалуйста
Ответы
Объяснение:
program Rainfall;
var
RainfallData: array[1..31] of integer;
i, FirstDayRain, DaysWithMoreRain: integer;
begin
// Ввод данных о количестве осадков за каждый день января
for i := 1 to 31 do
begin
write('Введите количество осадков для ', i, '-го числа: ');
readln(RainfallData[i]);
end;
// Инициализация счетчика дней с большими осадками
DaysWithMoreRain := 0;
// Считываем количество осадков в первый день месяца
FirstDayRain := RainfallData[1];
// Проверяем остальные дни
for i := 2 to 31 do
begin
if RainfallData[i] > FirstDayRain then
begin
DaysWithMoreRain := DaysWithMoreRain + 1;
writeln('В ', i, '-й день выпало больше осадков, чем в первый день.');
end;
end;
writeln('В январе было ', DaysWithMoreRain, ' дней с большими осадками.');
end.