Паскаль: 42 - Массивы 1. Отметьте все правильные объявления массива в языке Паскаль. var...

Паскаль: 42 - Массивы

1. Отметьте все правильные объявления массива в языке Паскаль.
var A[1..20] of integer;
var A: array [1...20] of integer;
var A: array [-8..10] of integer;
var A: array [-8..10];
var A[1..10];
2. Отметьте все правильные утверждения о массивах в языке Паскаль.
элементы массива могут быть разных типов
все элементы массива должны быть одного типа
элементы в памяти расположены рядом
элементы могут быть расположены в памяти по одному
элементы всегда нумеруются с единицы
3. Сколько байт в памяти занимает массив A, если на целое число отводится 4 байта?
var A: array[-3..2] of integer;
Ответ:

4. Требуется заполнить массив именно так:
X = [1 3 5 7 9 11]
Какой оператор надо поместить в тело цикла вместо многоточия?
for k:=1 to 6 do begin
...
end;
X[k] := k
X[k] := 2*k
X[k] := 2*k - 1
X[k] := 2*k + 1
X[k] := 2*(k - 1)
5. Требуется заполнить массив именно так:
X = [12 9 6 3 0 -3]
Какой оператор надо поместить в тело цикла вместо многоточия?
for k:=1 to 6 do begin
...
end;
X[k] := k
X[k] := 14 - 2*k
X[k] := 3*k - 15
X[k] := 3*(k - 1) + 6
X[k] := 15 - 3*k
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<br> 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

1) 2 3
2) 2 4
3) 24
4)3
5)5