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

131

312

Посмотреть ответы 2

Ответы на вопрос:

Dementor112

Информатика

4,6(83 оценок)

Const n = 12; const k = 0; var temp : array [1..n] of integer; i, min, max, count : integer; begin min : = 1000; max : = -1000; count : = 0; {заполнение массива данными} for i : = 1 to n do begin write(i,'-й месяц: '); readln(temp[i]); if (temp[i] > max) then max : = temp[i]; if (temp[i] < min) then min : = temp[i]; {если температура выше k - месяц считается теплым} if (temp[i] > k) then count : = count + 1; end; writeln('минимальная температура: ',min); writeln('максимальная температура: ',max); writeln('количество теплых месяцев: ',count); readln; end.