6. Нужно заполнить массив именно так: X = [3 4

6. Нужно заполнить массив конкретно так:
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)
7. Требуется заполнить массив именно так:
X = [1 2 4 8 16 32]
Какой оператор надобно поместить в тело цикла вместо многоточия?
X[1] := 1;
for k:=2 to 6 do begin
...
end;
X[k] := k
X[k] := 2*k
X[k] := X[k-1] + 1
X[k] := 2*X[k-1]
X[k] := 2*(X[k-1] - 1)
8. Что надобно написать заместо многоточия, чтобы вывести элементы массива X[1..N] в оборотном порядке? В ответе не используйте пробелы.
for k:=1 to N do
writeln ( ... );
Ответ:
9. Какой оператор надобно воткнуть заместо многоточия, чтобы вывести на экран все элементы массива A[1..N] с четными номерами? В ответе не используйте пробелы.
k := 2;
while k lt;= N do begin
writeln ( A[k] );
...
end;
Ответ:
10. Задан массив X[1..N]. Какой оператор надо поставить вместо многоточия, чтоб отыскать сумму всех элементов массива в переменной S? Вводите ответ без пробелов.
S := 0;
for k := 1 to N do begin
...
end;
Ответ:
11. Задан массив X[1..N]. Какое условие надобно поставить заместо многоточия, чтоб найти сумму положительных элементов массива в переменной S? Вводите ответ без пробелов.
S := 0;
for k := 1 to N do begin
if . . . then S := S + X[k];
end;
Ответ:
12. Задан массив X[1..N]. Какое условие надобно поставить заместо многоточия, чтоб отыскать количество четных частей массива в переменной S?
S := 0;
for j:=1 to N do
if ... then S := S + 1;
S mod 2 = 1
S mod 2 = 0
X[j] mod 2 = 1
X[j] mod 2 = 0
X[j] div 2 = 0