1. Запишіть оператори присвоювання, які виконують такі дії: першому елементу масиву С присвоїти значення третього і п’ятого елементів; шостому елементу масиву С присвоїти значення подвоєного добутку першого і другого елементів.
2. Поставте у відповідність опис табличної величини: 1) таблиця з 10 текстових величин; 2) таблиця з 10 дійсних чисел; 3) таблиця із 6 символьних величин; 4) таблиця з послідовністю 9 чисел, що змінюються через 0.1; 5) таблиця з 7 текстових величин; та відповідну таблицю значень:

Program Number;
var  x: integer; { введенное число }  n: byte := 0; { количество цифр в числе }  i, j: byte; { счетчики }  xi: array[1..5] of integer;{массив цифр, из которых состоит число}
begin  { Ввод исходного числа }  readln(x);  writeln;   x := abs(x); // рассматриваем модуль числа  { Разбиение числа на цифры }  while (x > 0) do  begin    n := n + 1; // увеличиваем количество цифр    xi[n] := x mod 10; // вычисляем цифру (остаток от деления на 10)    if xi[n] = 8 then // если встретилась 8,    begin      writeln('да'); // то число "бесконечное"      readln;      exit;          // выход из программы    end;    x := x div 10; // изменяем число (целое от деления на 10)  end;  { Поиск цифр, встречающихся больше одного раза}  for i := 1 to n - 1 do    for j := i + 1 to n do      if xi[i] = xi[j] then // если числа      begin        writeln('да'); // то число "бесконечное"        readln;        exit;  // выход из программы       end;  { Число не явлется "бесконечным" }  writeln('нет');end.

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

1)
begin 
  ReadArrInteger(ReadInteger('n->')).Select(t->-t).Println;
end.

Пример:
n-> 5
7 -9 4 5 -20
-7 9 -4 -5 20

2)
begin
 var a:=ReadArrInteger(ReadInteger('n->')); var (f,l):=(a[0],a[a.Length-1]);
 Range(0,a.Length-1).ForEach(t->begin if a[t]<>0 then if a[t].IsEven then a[t]:=a[t]+f else a[t]:=a[t]+l;end);
 a.Println;
end.

Пример:
n-> 14
1 5 4 7 8 6 2 4 2 4 0 4 0 3
4 8 5 10 9 7 3 5 3 5 0 5 0 6

3)
begin
 var a:=ReadArrInteger(ReadInteger('n->')); var im:=a.IndexMax;
 If im<>a.Length-1 then a:=a[:im]+a[im+1:]+arr(0) 
                           else a:=a[:im]+arr(0); 
 a.Println;
end.

Пример(1):
n-> 5
1 2 5 3 4
1 2 3 4 0

Пример(2):
n-> 5
1 2 3 4 5
1 2 3 4 0