Приведите пример использования одномерного массива символьного типа при составлении программ​

Написать оператор, который описывает массив num из 10 вещественных элементов, индекс первого элемента равен 2.

var num: array[2..12] of real;

2. Написать оператор, который вводит с клавиатуры одномерный массив В из 30 элементов, начиная с нулевого.

for i:=0 to 29 do

read(B[i]);

3. Написать оператор, который выводит на экран в столбик номера и значения элементов одномерного массива mas из 30 элементов.

for i:=1 to 30 do

writeln(i, ' ',mas[i]);

4. Написать оператор, который выводит на экран ненулевые элементы одномерного массива mas из 20 элементов.

for i:=1 to 20 do

if mas[i]<>0 then

writeln(mas[i]);

5. Сдвинуть все элементы массива a[1..n] вправо на 1 позицию

t:=a[n];

for i:=n-1 downto 1 do

a[i+1]:=a[i];

a[1]:=t;

6. Получить инвертированный одномерный массив (с использованием вс массива)

program invert_massiv;

const n=7;

Var a,b:array[1..n] of integer; i: integer;

begin

Randomize;

for i:=1 to n do

a[i]:=random(11);

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

for i:=1 to n do

write(a[i]:3, ' ');

for i:=0 to n-1 do

b[i+1]:=a[n-i];

writeln;

writeln('Инвертированный массив');

for i:=1 to n do

write(b[i]:3, ' ');

end.

7. Та же задача, но с использованием одного массива и вс переменной t

for i:=1 to n div 2 do

begin

t:=a[i];

a[i]:=a[n-i+1];

a[n-i+1]:=t;

end;