Question

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 <= 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

Answer 1

6.

X[k] := 2*k + k mod 2

7.

X[k] := 2*X[k-1]

8.

X[N-k+1]

9.

k:=k+2;

10.

S:=S+X[k];

11.

X[k] > 0

12.

X[j] mod 2 = 0