Вопрос по информатике:
Из массива Х (X1,X2,.....Xn) найти Xmax наибольший и Xmin наименьший элементы массива, их порядковые номера Nmax и Nmin, и поменять их местами. Результирующий массив вывести на экран
- 14.01.2018 04:45
- Информатика
- remove_red_eye 18293
- thumb_up 14
Ответы и объяснения 1
Program al;
var x: array[1..32000] of integer;
buf:integer;
i,n,min,max:integer;
begin
writeln('i=');
readln(i);
writeln('vvedite massiv=');
for n := 1 to i do
readln(x[n]);
min:=1;
max:=1;
for n:=2 to i do
begin
if x[min]>x[n] then
min:=n;
if x[max]
end;
buf:=x[min];
x[min]:=x[max];
x[max]:=buf;
writeln('Massiv posle obmena maxmin');
for n:=1 to i do
write(x[n]:4);
writeln;
end.
- 15.01.2018 10:53
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.