Question

Помогите с заданием на языке Pascal
Напишите программу, которая ввод данных в одномерный целочисленный массив осуществляет
посредством цикла WHILE...DO, а вывод – REPEAT...UNTIL (в скобках указана размерность масси-
ва): заменить минимальный элемент массива на единицу (12);