Question

Напишите программу , которая в последовательности 10-ти натуральных чисел определяет максимально число, оканчивающееся на 4. Если таких чисел нет , вывести (NO). (Язык программирования -Паскаль)

Answer 1

program primer;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.