Помогите с заданием ** языке Pascal Напишите программу, которая ввод данных в одномерный...

Question

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

Answer 1

Var
  A: array [1..12] of integer;
  i: byte;
  min, indexMin: integer;
begin
  i := 1; indexMin := 1;
  while (i < 13) do
  begin
    write('A[',i,'] = ');
    readln(A[i]);
    if i = 1 then min := A[1]
    else
    if (A[i] < min) then
    begin
      min := A[i];
      indexMin := i;
    end;
    i := i + 1;
  end;
  i := 0;
  repeat
    i := i + 1;
    if (i = indexMin) then
      A[i] := 1;
    write(A[i]:4);
  until (i = 12);
end.

---

Comments

А нет. Сейчас поправлю.

---

не меняет минимальный элемент на 1 https://puu.sh/yxQj9/9b9443a0e7.png