Пользователь вводит четыре числа. Найдите наибольшее четное число среди них. Если
Пользователь вводит четыре числа. Найдите наибольшее четное число среди них. Еслионо не существует, выведите фразу "not found". Сделать в паскаль
Гость
Ответ(ы) на вопрос:
Гость Var a:array[1..4] of integer;
i,max:integer;
b:boolean;
begin
b:=false;
for i:=1 to 4 do
read(a[i]);
max:=a[1];
for i:=1 to 4 do
if (not odd(a[i])) and (a[i]>=max) then begin
max:=a[i];
b:=true;
end;
if b then write('',max) else write('not found');
end.
Не нашли ответ?
Похожие вопросы