Решить

Давайте разберемся, что происходит в каждой из предложенных программ и выберем ту, которая помещает двойки в одномерный массив.

Анализ вариантов:

Вариант 1:

var
  Dat: array[0..4] of integer;
  k: integer;
begin
  for k := 0 to 4 do
  begin
    if Dat[k] = 2 then
      Dat[k] := k;
  end;
end.

• Данный код проверяет, равен ли элемент массива Dat[k] числу 2 и, если да, записывает в него значение k. Однако массив Dat изначально не инициализирован, так что условие Dat[k] = 2 будет ложным, и программа не поместит двойки в массив.

Вариант 2:

var
  Dat: array[0..4] of integer := (2, 2, 2, 2, 2);
  k: integer;
begin
  for k := 0 to 4 do
    Dat[k] := 2;
end.

• Этот код инициализирует массив Dat значениями (2, 2, 2, 2, 2). В цикле for элементы массива еще раз присваиваются значению 2. Таким образом, массив будет состоять только из двоек.

Вариант 3:

var
  Dat1, Dat2, Dat3, Dat4, Dat5: integer;
begin
  Dat1 := 2;
  Dat2 := 2;
  Dat3 := 2;
  Dat4 := 2;
  Dat5 := 2;
end.

• Здесь каждая переменная инициализируется значением 2, но это не массив, а отдельные переменные. Следовательно, это не отвечает требованию задачи о работе с массивом.

Вывод:

Вариант 2 — единственный, который корректно заполняет массив числами 2. Таким образом, он отвечает на запрос задачи.