Паскаль: 45 - Алгоритмы обработки массивов

1. Задан массив X[1..N]. Какое условие надо поставить вместо многоточия, чтобы в результате в переменную i был записан номер элемента, равного R? Вводите ответ без лишних пробелов и скобок.
  i:=1;
while (i<=N) and ( ... ) do
i:=i+1;
Ответ: 
2. Задан массив X[1..N]. Какое условие надо поставить вместо многоточия, чтобы найти минимальный элемент массива в переменной M? Вводите ответ без пробелов.
  M:=X[1];
for k:=2 to N do
if ... then M := X[k];
Ответ: 
3. Задан массив X[1..N]. Какой оператор надо поставить вместо многоточия, чтобы найти номер максимального элемента массива в переменной M? Вводите ответ без пробелов.
  M:=1;
for k:=2 to N do
if X[k]>X[M] then
...
Ответ: 
4. Требуется поменять местами значения элементов массива X[a] и X[b]. Какой оператор нужно добавить вместо многоточия? В ответе не используйте пробелы.
  p := X[a];
...
X[b] := p;
Ответ: 
5. Задан массив X[1..N]. Какой оператор надо поставить вместо многоточия, чтобы в результате в переменную nR был записан номер элемента, равного R? Вводите ответ без пробелов.
  nR:= 0;
for k:=1 to N do
if X[k]=R then begin
...
break
end;
Ответ: 
6. Задан массив X[1..N]. Что нужно поставить вместо многоточия, чтобы в результате элементы в массиве X были переставлены в обратном порядке?
  for k:=1 to ... do begin
c:=X[k];
X[k]:=X[N+1-k];
X[N+1-k]:=c
end;
Ответ: 
7. Задан массив X[1..N]. Какой оператор нужно поставить вместо многоточия, чтобы в результате элементы в массиве X были сдвинуты на один вправо (циклически)? В ответе не используйте пробелы.
  c:=X[N];
for k:=N downto 2 do begin
...
end;
X[1]:=c;
Ответ: 
8. Требуется выделить все отрицательные элементы массива A[1..N] в начало массива B[1..N]. Какой оператор надо вставить в программу вместо многоточия? Вводите ответ без пробелов.
  c:=1;
for k:=1 to N do
if A[k]<0 then begin
...
c:=c+1
end;
Ответ: