Вопрос по информатике:
ПРОГРАММИРОВАНИЕ ОБРАБОТКИ ОДНОМЕРНЫХ МАССИВОВ
Даны действительные числа a1, a2, … ,an. Поменять местами наибольший и наименьший элементы.
на Free Pascal
- 08.10.2016 09:35
- Информатика
- remove_red_eye 14680
- thumb_up 44
Ответы и объяснения 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]
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.
- 09.10.2016 19:00
- thumb_up 14
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.