Var n,m,max,min:integer;
Begin
write('Введите число n: ');readln(n);
max:=-10;min:=10;
While n<>0 do
Begin
m:=n mod 10;
if m>max then max:=m;
if m<min then min:=m;
n:=n div 10;
End;
writeln('Максимальная цифра числа: ',max);
writeln('Минимальная цифра числа: ',min);
End.
1. Любыми
2. Вывести каждый элемент, добавляя после вывода пробел или символ смены строки. Можно также организовать смену строки, например, используя конструкцию Writeln
3. Может, если это динамический массив. Статический - не может, потому что его невозможно таковым описать.
Nums = input()nums = int(nums)if nums <= 10000 and nums >=1: mass= str(nums) k = int(mass[0]) n= int(mass[-1]) if k < n : print("первый меньше") elif k > n : print("первый больше") else: print("равны")else: print("Не удоволетворяет диапазону")