В одномерном массиве А, состоящем из 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. 

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

Оцени ответ
Не нашел ответ?

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

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

Загрузить картинку
Предметы