Паскаль: 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;
Ответ: