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

var

  A: array [1..12] of integer;  //Массив, состоящий из 12 целых чисел

  i: integer;

 

begin

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

  begin

    writeln(Введите А[, i, ]);

    readln(a[i]);

  end;

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

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

  begin

    write(a[i],  );

    if (a[i] > 0) and (a[i] mod 2 = 0) then

      a[i]:= 5;

  end;

  writeln;

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

  for i:= 1 to 12 do  //Распечатываем измененный массив

    write(a[i],  );

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

end. 

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

Оцени ответ
Проблемы с решением?

Если ответа нет или он оказался неправильным по предмету Информатика, то попробуй воспользоваться поиском на сайте или задать вопрос самостоятельно.

Если же проблемы возникают регулярно, то возможно Вам стоит обратиться за помощью. Мы нашли великолепную площадку, которую без всяких сомнений можем порекомендовать. Там собраны лучшие преподаватели, которые обучили множество учеников. После обучения в этой школе, Вы сможете решать даже самые сложные задачи.

Foxford

Найти другие ответы

Загрузить картинку