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

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

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

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

Это система скрытой реализации. Когда можно что-то подать на вход, и что-то получить на выход, но вот конкретно как преобразуются входящие данные в выходящие данные не известно. Вся техника по сути и есть черный ящик. Нажимаешь кнопочку на телевизоре - переключается канал, но как это происходит - не известно, если ты конечно не делал этот телевизор. Если надписи на кнопках будут на не понятном языке и инструкция на понятном языке отсутствует, то такой прибор будет класическим случаем черного ящика.

Ну так правильно пишет , нельзя писать if b>a>c
then begin , пишется правильно так  if (c>b) and (b>a)then begin ,  вообщем вот держи ;

Program qq;var a,b,c,max,min,med : longint;beginwriteln ('введите три числа');read (a,b,c);if (c>b) and (b>a)then beginmax := c;med := b;min := a;End;if (b>a) and (a>c)then beginmax := b;med := a;min := c;End;if (a>c) and (c>b)then beginmax := a;med := c;min := b;End;writeln ('наибольшее число', max);writeln ('среднее число', med); writeln ('наименьшее число', min);End.