1. Напишите программу, которая из пяти введенных с клавиатуры натуральных чисел определяет максимальное число, кратное 2.
2.Напишите программу, которая в последовательности пяти натуральных чисел, введенных с клавиатуры определяет сумму чисел, кратных 2
2.Напишите программу, которая в последовательности пяти натуральных чисел, введенных с клавиатуры определяет сумму чисел, кратных 2
More Questions From This User See All
Answers & Comments
// Внимание! Если программа не работает, обновите версию!
Задача №1
begin
var s:=ReadArrInteger(5).Where(x->x.IsEven);
if s.Count>0 then Writeln(s.Max)
else Writeln('Четных элементов нет')
end.
Задача №2 (делается из (1) путем замены трех символов)
begin
var s:=ReadArrInteger(5).Where(x->x.IsEven);
if s.Count>0 then Writeln(s.Sum)
else Writeln('Четных элементов нет')
end.