8 июля, 11:51

Известны данные о среднемесячной температуре за год. Определить, какая была самая высокая температура летом и самая низкая зимой. Нужен код программы в паскаль.

+1
Ответы (1)
  1. 8 июля, 13:47
    0
    Program Task;

    Const m = 12;

    Var a: Array [1 ... m] of Integer;

    i: Integer;

    Function Max (a, b: Integer) : Integer;

    Begin

    If a > b Then

    Result : = a

    Else

    Result : = b;

    End;

    Function Min (a, b: Integer) : Integer;

    Begin

    If a < b Then

    Result : = a

    Else

    Result : = b;

    End;

    Begin

    WriteLn ('Введите среднемесячные температуры за год (через пробел) ');

    For i : = 1 To m Do

    Read (a[i]);

    WriteLn ('Самая высокая температура летом равна ', Max (Max (a[6], a[7]), a[8]));

    WriteLn ('Самая низкая температура зимой равна ', Min (Min (a[11], a[12]), a[1]));

    ReadLn;

    End.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Известны данные о среднемесячной температуре за год. Определить, какая была самая высокая температура летом и самая низкая зимой. Нужен код ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы