Найти максимальную и минимальную цифры числа. Верно ли, что данное число заканчивается на них?
Нужна программа в турбо паскаль

var a: array[0..9] of integer;
    s: string;
    i,j: integer;
begin
  for i:=0 to 9 do a[i]:=0;
  write(число: );  readln(s);
  for i:=1 to length(s) do inc(a[ord(s[i])-48]);
  i:=9;
  while a[i]=0 do i:=i-1;
  j:=i;
  i:=0;
  while a[i]=0 do i:=i+1;
  if (chr(j+48)+chr(i+48)=s[length(s)-1]+s[length(s)]) or
     (chr(i+48)+chr(j+48)=s[length(s)-1]+s[length(s)]) 
     then writeln(Да)
  else writeln(Нет);   
end.

число: 18245390
Да

число: 1205483Нет

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.