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

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

  S:= 0;
  for k:=1 to N do begin
    ... 
  end;

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]. Какое условие надо поставить вместо многоточия, чтобы найти в переменной S сумму элементов массива, которые делятся на 5? Вводите ответ без лишних пробелов.

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

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

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

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

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

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

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

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

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

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

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

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

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