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

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

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

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

zybikrybik    2   02.10.2019 22:13    11