Напишите программу , которая в последовательности 10-ти натуральных чисел определяет максимально число, оканчивающееся на 4. Если таких чисел нет , вывести (NO). (Язык программирования -Паскаль)
More Questions From This User See All
Answers & Comments
var
n,i,max,z:integer;
begin
max:=0;
for i:=1 to 10 do begin
read(n);
if(n mod 10 = 4) then begin
inc(z);
if(max<n) then max:=n;
end;
end;
if(z>0) then writeln(max)
else writeln('NO');
end.