Question

срочно!!!!! напишите пожалуйста программу на паскале к задаче Дано н-натуральных чисел не привышавшая 300 .Найти наибольшее число с предпоследней цифрой 0. заранее спасибо

Answer 1

begin
  var max := 0;
  var n := readinteger('Введите n: ');
  write('Введите n чисел: ');
  for var i := 1 to n do
  begin
    var a := readinteger();
     if(a.ToString.Length > 1) then
       if(a.ToString[a.ToString.Length - 1] = '0') then
         if(a > max) then max := a;
  end;
  write(max);
end.