ПРОГРАММИРОВАНИЕ ОБРАБОТКИ ОДНОМЕРНЫХ МАССИВОВ Даны действительные числа a1, a2, … ,an. Поменять местами наибольший и наименьший элементы. на Free Pascal
ПРОГРАММИРОВАНИЕ ОБРАБОТКИ ОДНОМЕРНЫХ МАССИВОВ
Даны действительные числа a1, a2, … ,an. Поменять местами наибольший и наименьший элементы.
на Free Pascal
Гость
Ответ(ы) на вопрос:
Гость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]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.
Не нашли ответ?
Похожие вопросы