Предмет: Информатика,
автор: neto4ka1987
Напишите программу, которая в массиве из 30 натуральных чисел определяет максимальное четное число.
Ответы
Автор ответа:
0
// PascalABC.NET 3.2, сборка 1504 от 09.07.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(30,-50,50); a.Println;
Writeln('Максимальное четное: ',a.Where(x->x.IsEven).Max)
end.
Пример:
14 34 8 41 -49 -2 22 9 29 -24 40 -35 -18 -47 0 -39 -9 46 38 8 25 -10 -30 32 -14 9 -13 6 9 -2
Максимальное четное: 46
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(30,-50,50); a.Println;
Writeln('Максимальное четное: ',a.Where(x->x.IsEven).Max)
end.
Пример:
14 34 8 41 -49 -2 22 9 29 -24 40 -35 -18 -47 0 -39 -9 46 38 8 25 -10 -30 32 -14 9 -13 6 9 -2
Максимальное четное: 46
Похожие вопросы
Предмет: Математика,
автор: iskandarmahkamov2011
Предмет: Геометрия,
автор: risiten3
Предмет: Информатика,
автор: taniyham
Предмет: Английский язык,
автор: cugunovvladimir2
Предмет: Английский язык,
автор: viktoriyaevdok