Question

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

Answer 1

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.