Поменять местами max и min в одномерном массиве

@Helga · Регистрация: 29.03.2009

Студворк — интернет-сервис помощи студентам

Значения нашла, а поменять местами не знаю как. Помогите!

program poisk;
var max,min,i,n, imax, imin:integer;
a:array[1..1000] of integer;
begin
writeln('введите длину массива');
readln(n);
for i:=1 to n do
read(a[i]);
max:=a[1];
for i:=2 to n do {poisk maximuma}
if a[i]>max then max:=a[i];
min:=a[1];
for i:=2 to n do {poisk minimuma}
if a[i]<min then min:=a[i];
writeln('Max= ',max,' Min= ',min);
for i:=1 to n do
write('',a[i]);
readln;
readln;
end.

@NasmAPIk · 29.03.2009, 19:32

Немного изменим твой код:
В переменные max и min будем сохранять не значения max и min элементов, а их номера.
Код будет выглядеть так:

Pascal

program poisk;
var max,min,i,n,k:integer;
a:array[1..1000] of integer;
begin
writeln('введите длину массива');
readln(n);
for i:=1 to n do
read(a[i]);
max:=1; min:=1;
for i:=2 to n do begin {poisk nomerov max i min elementov }
if a[i]>a[max] then max:=i;
if a[i]<a[min] then min:=i;
end;
writeln('Max= ',a[max],' Min= ',a[min]);
k:=a[min]; 
a[min]:=a[max];
a[max]:=k;
for i:=1 to n do
write(' ',a[i]);

@Helga · 29.03.2009, 19:53 **[ТС]**

спасибо!!!! выручили!

@Helga 0 / 0 / 0 Регистрация: 29.03.2009 Сообщений: 22
		1
	Поменять местами max и min в одномерном массиве 29.03.2009, 18:13. Показов 7023. Ответов 2 Метки нет (Все метки) Значения нашла, а поменять местами не знаю как. Помогите! program poisk; var max,min,i,n, imax, imin:integer; a:array[1..1000] of integer; begin writeln('введите длину массива'); readln(n); for i:=1 to n do read(a[i]); max:=a[1]; for i:=2 to n do {poisk maximuma} if a[i]>max then max:=a[i]; min:=a[1]; for i:=2 to n do {poisk minimuma} if a[i]<min then min:=a[i]; writeln('Max= ',max,' Min= ',min); for i:=1 to n do write('',a[i]); readln; readln; end. 0

@Helga 0 / 0 / 0 Регистрация: 29.03.2009 Сообщений: 22
	29.03.2009, 19:53 [ТС]	3
	спасибо!!!! выручили! 0

Опции темы

Поменять местами max и min в одномерном массиве

Решение