напишите подпрограмму, которая заполняет массив из n элементов в обратном порядке последовательными целыми числами, начиная с последнего элемента, который должен быть равен x.

размер массива заранее задан константой n. используйте заголовок:

procedure zap(x: integer; var m: tmas);

тип тmas задан как array[1..n] of integer и может использоваться для описания параметров подпрограмм.
только паскаль

Const
  n = 5;{ это позволяет в одном месте изменить количество чисел }

type
  numeric = real;{ это позволяет в одном месте изменить тип чисел }

var
  max, min: numeric;
  i: integer;
  a: array[1..n] of numeric;

begin
  Writeln('Введите ', n, ' произвольных чисел через пробел');
  Read(a[1]);
  min := a[1]; max := min;
  for i := 2 to n do
  begin
    Read(a[i]);
    if max < a[i] then max := a[i]
    else
    if min > a[i] then min := a[i]
  end;
  Writeln('Минимальное введенное: ', min, ', максимальное: ', max)
end.

Тестовое решение:
Введите 5 произвольных чисел через пробел
34 157 -84.54 14.843 -13.64
Минимальное введенное: -84.54, максимальное: 157

1. 24 бита = 3 байтам . т.к если мы переведем 3 байта в биты, то получим 3*8 = 24 бита.                                                                                         250 байт больше чем 0,25 кбайт. т.к 250: 1000=0,4кбайт