ПРОГРАММИРОВАНИЕ ОБРАБОТКИ ОДНОМЕРНЫХ МАССИВОВ Даны действительные числа a1, a2, … ,an....

Question

ПРОГРАММИРОВАНИЕ ОБРАБОТКИ ОДНОМЕРНЫХ МАССИВОВ

Даны действительные числа a1, a2, … ,an. Поменять местами наибольший и наименьший элементы.

на Free Pascal

Answer 1

const
  n=15;
var
  a: array[1..n] of real;
  i,imax,imin: byte;
  t: real;
begin
  Writeln('Введите ',n,' элементов массива');
  imax:=1; imin:=1;
  for i:=1 to n do begin
    Read(a[i]);
    if a[i]    else
      if a[i]>a[imax] then imax:=i
    end;
  t:=a[imin]; a[imin]:=a[imax]; a[imax]:=t;
  for i:=1 to n do Write(a[i],' ');
end.

Comments

ввожу элементы и выходит обратно на код

---

когда Enter нажму

---

На какой код? Надо ввести 15 чисел (ну или сколько укажате в n) через пробел и в конце Enter

---

А может, это у Вас окно выводв схлопывается. Попробейте добавить перед последним end оператор Read(i)