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

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;