А, С. Тип написать надо побольше. Привет, как дела?
mayorovmisc6
22.02.2020
// PascalABC.NET 3.2, сборка 1341 от 20.11.2016 begin var a:=ArrRandom(15,-10,30); a.Println; var b:=ArrRandom(25,-10,30); b.Println; var ma:=a.Where(x->x.IsEven).Max; var mb:=b.Where(x->x.IsEven).Max; if ma>mb then WritelnFormat('Максимум четных 1-го массива {0} больше 2-го {1}',ma,mb) else if mb>ma then WritelnFormat('Максимум четных 1-го массива {0} меньше 2-го {1}',ma,mb) else Writeln('Максимумы четных элементов в массивах равны ',ma) end.