Сигнал принимающий конечное число значений называется

Дискретным.

const m = 1000

var

   arr: array[1..m] of integer;

   n,i, j, k: integer;

begin

   readln(n);

   write ('Исходный массив: ');

   for i := 1 to n do begin

       readln(arr[i]);

   end;

//сортировка методом пузырька   

   for i := 1 to n-1 do

       for j := 1 to n-i do

           if arr[j] > arr[j+1] then begin

               k := arr[j];

               arr[j] := arr[j+1];

               arr[j+1] := k

           end;

 

   write ('Отсортированный массив: ');

   for i := 1 to n do

  write (arr[i]:4);

end.

Объяснение:

program vertical;

var i:integer;

s:string;

begin

 s := 'Вертикаль';

 

 write(copy(s,4,2)+copy(s,3,1) +' '); // тир

 write(copy(s,1,2)+copy(s,4,1)+copy(s,6,2) + ' '); // ветка

 writeln(copy(s,4,2)+copy(s,6,1)); // тик

 

 writeln('Длина исходного текста: ',s.Length);  

 writeln(copy(s,1,4)); // верт

 

 Delete(s,4,3);

 Delete(s,s.Length - 1,2);

 writeln(s); // вера

 

 insert('евк',s,4);

 writeln(s); // веревка

 

 writeln('Буква "е" находится на позиции: ', s.IndexOf('е') + 1);

end.

Объяснение: