, решать по типу алг
нас
вещ...
ввод
вывод
кон либо алгоритмом​

1)

var

  a: 100..999;

  a1, a2, a3: 0..9;   //а1 - сотни, а2 - десятки, а3 - единицы

 

begin

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a1, a3, a2);

end.

2)

var

  a: 100..999;

  a1, a2, a3: 0..9;

 

begin

   

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a2, a1, a3);

end.

3)

var

  a: 100..999;

  a1, a2, a3: 0..9;

 

begin 

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a3, a1, a2, a3);

end.

4)

var

  a: 1000..9999;

  a1, a2, a3, a4: 0..9;

 

begin

  writeln('введите натуральное четырехзначное число');

  readln(a);

  a1: = a div 1000;   //тысячи

  a2: = (a mod 1000) div 100;   //сотни

  a3: = (a mod 100) div 10;   //десятки

  a4: = a mod 10;   //единицы

  writeln('полученное число:   ', a4, a3, a2, a1);

end.

все остальное делается наподобие этого: просто в writeln меняешь местами цифры и все.

   

Программа со статическим массивом:

Var
  M: array[1..32767] of real;
  Min: real;
  N, i: integer;
Begin
  Write('N = ');ReadLn(N);
  if (N <= 0) then
    WriteLn('Количество элементов должно быть положительно')
  else
  begin
    Write('Введите элементы массива в количестве ',N,' штук');
    For i:= 1 to N do
      Read(M[i]);
    Min := M[1];
    For i:= 2 to N do
      if (M[i] < Min) then
        Min := M[i];
    WriteLn;
    Write('Получившийся массив:');
    For i:= 1 to N do
    begin
      M[i] := M[i] / Min;
      Write(' ',M[i]);
    end;
  end
End.