Question

Количество осадков ,выпавших за каждый день января, хранится в массиве. Определить колличество дней, в которые выпало осадков больше, чем в первый день месяца и напечатать их дату. Pascal ABC. Помогите, пожалуйста

Answer 1

Объяснение:

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.