ДАЮ 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]>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] > X[M] then
...
end;
Ответ: