ДАЮ 100 баллов тому,кто решит все верно:1. Задан массив X[1..N]. Какой

ДАЮ 100 баллов тому,кто решит все правильно:
1. Задан массив X[1..N]. Какой оператор надобно поставить вместо многоточия, чтоб отыскать в переменной S сумму всех элементов массива? Вводите ответ без пробелов.
S:= 0;
for k:=1 to N do begin
...
end;
Ответ:
S:=S+X[k]
2. Задан массив X[1..N]. Какое условие надобно поставить заместо многоточия, чтоб отыскать в переменной S сумму положительных частей массива? Вводите ответ без пробелов.
S:= 0;
for k:=1 to N do begin
if ... then
S:= S + X[k]
end;
Ответ:
X[k]gt;0
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] gt; X[M] then
...
end;
Ответ: