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

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

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;

5. Требуется заполнить массив именно так:

    X = [12 9 6 3 0 -3]

Какой оператор надо поместить в тело цикла вместо многоточия?

  for k:=1 to 6 do begin
     ...
  end;

6. Требуется заполнить массив именно так:

    X = [3 4 7 8 11 12]

Какой оператор надо поместить в тело цикла вместо многоточия?

  for k:=1 to 6 do begin
     ...
  end;

7. Требуется заполнить массив именно так:

    X = [1 2 4 8 16 32]

Какой оператор надо поместить в тело цикла вместо многоточия?

  X[1] := 1;
  for k:=2 to 6 do begin
     ...
  end;

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;