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.

Answer 2

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.