Дан целочисленный массив из 27 элементов. Элементы массива могут принимать целочисленные значение значения от -20 до 20 – сведения о температуре за каждый день ноября. Опишите алгоритм, который находит и выводит максимальную температуру среди дней, когда были заморозки (температура опускалась ниже нуля). Если таких чисел нет, нужно вывести сообщение ″Таких чисел нет″. На языке паскаль. 15баллов
Ответы
Ответ дал:
0
PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(27,-20,20); a.Println;
var max:=a.Where(t->t<0).DefaultIfEmpty.Max;
if max=0 then Writeln('Таких чисел нет')
else Writeln(max)
end.
Пример
6 2 14 16 -18 -18 -8 17 -9 12 8 16 4 -5 -3 11 17 -6 8 13 4 12 5 -4 -8 16 -8
-3
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(27,-20,20); a.Println;
var max:=a.Where(t->t<0).DefaultIfEmpty.Max;
if max=0 then Writeln('Таких чисел нет')
else Writeln(max)
end.
Пример
6 2 14 16 -18 -18 -8 17 -9 12 8 16 4 -5 -3 11 17 -6 8 13 4 12 5 -4 -8 16 -8
-3
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад