Домашнее задание для 10Б на 26 апреля

Решить задачи в тетради:

1.Требуется заполнить массив именно так: X = [3 4 7 8 11 12]

Какой оператор надо поместить в тело цикла вместо многоточия?

  for k:=1 to 6 do begin
     ...
  end;

а) X[k] := 3*k - k mod 2

б) X[k] := 2*k + k mod 2

в) X[k] := 2*k - k mod 2

г) X[k] := 2*k + k div 2

д) X[k] := 2*(k - 1)

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

  S := 0;
  for k := 1 to N do begin
     if  . . . then S := S + X[k];
  end;

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

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

4. Напишите программу, которая сортирует массив и находит количество различных чисел в нем.

Пример:

Массив:

5 3 4 2 1 6 3 2 4

После сортировки:

1 2 2 3 3 4 4 5 6

Различных чисел: 6