Дан одномерный массив. Запиши верный ответ.

−15 29 0 −1 3 12

Значение элемента массива — 12.
Индекс элемента массива —
2)Дано описание массива:

var a:array [1..88] of integer;

Здесь oписан массив aиз
целочисленных значений. При выполнении этого оператора в памяти компьютера будет выделено
ячеек целого типа.
3)Дано описание массива:

consta:array[1..4]ofinteger=(12,8,56,103);

Верно ли описан массив?
4)Дано описание массива:

vara:array[1..n]ofreal;

Выбери, какие элементы массива подходят.

а)−4.42.4−3
б) среда четверг суббота
в) −3i−8+2i
5)Дан массив: a={1,9,5,8}.
После сортировки массива (сортировка методом выбора) — порядок убывающий. Проанализируй и заполни таблицу.

Логическая операция ⊕ - это "исключающее ИЛИ" (xor в языках Паскаль, Бейсик и т.д.), а → операция присваивания.
Тогда a⊕b→a; a⊕b→b; a⊕b→a - это был обмен значениями a ↔ b
Теперь по этой же схеме обменяем местами b и с:
b⊕c→b; b⊕c→с; b⊕c→b.
Результат: b→a; c→b; a→c

Программа для иллюстрации:
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var a:=50;
  var b:=-20;
  var c:=0;
  Println('Исходные значения: a=',a,'b=',b,'c=',c);
  a:=a xor b; b:=a xor b; a:=a xor b;
  b:=b xor c; c:=b xor c; b:=b xor c;
  Println('Результат обмена: a=',a,'b=',b,'c=',c)
end.

Результат:
Исходные значения: a= 50 b= -20 c= 0
Результат обмена: a= -20 b= 0 c= 50

USES CRT,Graph;VAR Device,Mode:Integer;    i,x,y,s:Integer;BEGINCLRSCR;       Device:=0;       InitGraph(Device,Mode,'');       s:=100;       x:=320;       y:=240;       for i:=1 to 9 do           begin               SetLineStyle(0,0,ThickWidth);               Circle(x,y,s);               Delay(200);               SetColor(Black);               Circle(x,y,s);               s:=s-10;               SetColor(White);           end;            for i:=1 to 9 do           begin               SetLineStyle(0,0,ThickWidth);               Circle(x,y,s);               Delay(200);               SetColor(Black);               Circle(x,y,s);               s:=s+10;               SetColor(White);           end;          Circle(x,y,s);Readln;END.