С клавиатуры вводится 10 целых чисел, найти наибольшее из чисел оканчивающихся на 7

Question

Информатика

Дуняша

18 июня, 12:03

С клавиатуры вводится 10 целых чисел, найти наибольшее из чисел оканчивающихся на 7

+4

Ответы (1)

Знаете ответ на вопрос?

Роза · Answer 1

Var

A, i, Max:integer;

Begin

Max:=0;

For i: = 1 to 10 do

Begin

Read (a) ;

if (Abs (A) mod 10 = 7) and (A>Max) then Max:=A;

End;

WriteLn ('Max = ', Max) ;

End.