Составить программу на Паскале для вычисления значения функции у(х). Значения переменных задайте самостоятельно с оператора ввода. а ≠ 0. В отчет включить коды программы на Паскале, результаты работы программ в виде скриншота окна программы.

Const   n = 5; var   i: integer;   a: array[1..n * 2 + 1] of integer; begin   writeln('исходный массив: ');   for i : = 1 to 2 * n do   begin       a[i] : = random(99) + 1;       write(a[i] : 5);   end;   for i : = 2 * n + 1 downto n + 1 do       a[i] : = a[i - 1];   a[n + 1] : = 0;   writeln();   writeln('полученный массив: ');   for i : = 1 to 2 * n + 1 do       write(a[i] : 5); end.

запись (record) — это пользовательский тип данных, котоорый может содержать поля с различными типами данных, например:

type

 schools = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

 students = record

    name, surname : string;

    age : byte;

    school : schools;

 end;

Для обращения к полям записи из главной программы необходимо разделять имя переменной типа Запись и поля, которое оно содержит, символом "." (точка). Например:

var

 student : students;

begin

 student.name := 'Иван';

 student.surname := 'Пупкин';

end.

Если необходимо получить или изменить значения нескольких полей записи, то удобнее использовать конструкцию with:

begin

 with student do begin

    name := 'Вася';

    surname := 'Пупкин';

    age := 12;

    school := 5;

 end;

end.