Обработка массива. 10 класс

Задан массив X[1..N]. Какое условие надо поставить вместо многоточия, чтобы в результате в переменную i был записан номер элемента, равного R? Вводите ответ без лишних пробелов и скобок.

  i:=1;
  while (i<=N) and ( ... ) do
    i:=i+1;

Задан массив X[1..N]. Какое условие надо поставить вместо многоточия, чтобы найти минимальный элемент массива в переменной M? Вводите ответ без пробелов.

  M:=X[1];
  for k:=2 to N do 
    if ... then M := X[k];

Задан массив X[1..N]. Какой оператор надо поставить вместо многоточия, чтобы найти номер максимального элемента массива в переменной M? Вводите ответ без пробелов, в конце точка с запятой.

  M:=1;
  for k:=2 to N do 
    if X[k]>X[M] then 
      ...

Требуется поменять местами значения элементов массива X[a] и X[b]. Какой оператор нужно добавить вместо многоточия? В ответе не используйте пробелы, в конце точка с запятой.

  p := X[a];
  ...
  X[b] := p;

Задан массив X[1..N]. Какой оператор надо поставить вместо многоточия, чтобы в результате в переменную nR был записан номер элемента, равного R? Вводите ответ без пробелов, в конце символ ;.

  nR:= 0;
  for k:=1 to N do
    if X[k]=R then begin
      ...
      break
    end;

Задан массив 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;

Задан массив X[1..N]. Какой оператор нужно поставить вместо многоточия, чтобы в результате элементы в массиве X были сдвинуты на один вправо (циклически)? В ответе не используйте пробелы В конце символ ;.

  c:=X[N];
  for k:=N downto 2 do begin 
    ...
  end;
  X[1]:=c;

Требуется выделить все отрицательные элементы массива A[1..N] в начало массива B[1..N]. Какой оператор надо вставить в программу вместо многоточия? Вводите ответ без пробелов.

  c:=1;
  for k:=1 to N do
     if A[k]<0 then begin
        ...
        c:=c+1    
     end;

Задан массив X[1..5]. Определите число операций сложения, которые выполняются при работе этой программы:

  S:=X[1]+X[5];
  for k:=1 to 5 do begin
    X[k]:=X[k]+X[k]+S
  end;

Введите число