ПРОГРАММИРОВАНИЕ ОБРАБОТКИ ОДНОМЕРНЫХ МАССИВОВ Даны действительные числа a1, a2, ?
ПРОГРАММИРОВАНИЕ ОБРАБОТКИ ОДНОМЕРНЫХ МАССИВОВ
Даны действительные числа 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[imin] then imin:=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.
Не нашли ответ?
Похожие вопросы