Водномерном массиве а, состоящем из 12 целых чисел, все положительные элементы заменить пятеркой.

var

  a: array [1..12] of integer;   //одномерный массив из 12 целых чисел

  i: integer;  

begin

  for i: = 1 to 12 do   //вводим элементы массива с клавиатуры

  begin

    writeln('введите a[', i, ']');

    readln(a[i]);

  end;

  write('исходный массив:   ');   //выводим исходный массив

  for i: = 1 to 12 do

    write(a[i], '   ');

  writeln;   //перевод на новую строку

  write('измененный массив:   ');

  for i: = 1 to 12 do   {изменяем все положительные элементы на 5 и распечатываем полученный массив}

  begin

    if a[i] > 0 then a[i]: = 5;  

    write(a[i], '   ');

  end;

  writeln;   {переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}

end.

если все правильно, отметь решение как лучшее)

"(первая буква согласная) или не (вторая буква согласная)" - это значит, что 1-я буква согласная, а вторая не согласная. под то условие подходит только ответ 1) сергей