Массив. Найти максимальный элемент массива и поменять его местами с первым элементом

20.04.2012, 21:40. **Показов** 3880. **Ответов** 3

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

Дан массив целых чисел а1,…, аn. Найти максимальный элемент массива и поменять его местами с первым элементом.

@3a9Ic · 20.04.2012, 22:03

Pascal

Uses CRT;
Const n=5;
var a:array[1..n] of integer;
    i,index,buf,max:integer;
begin
     ClrScr;
     for i:=1 to n do
     begin
     a[i]:=Random(21);
     write(' a[',i,']=',a[i]);
     end;
     max:=a[1];
     index:=1;
     for i:=1 to n do
         begin
              if a[i]>max then
                 begin
                      max:=a[i];              //Ïîèñê максимального ýë.
                      index:=i;               //Åãî èíäåêñ
                 end
         end;
     writeln('');
     write('Max=',max,' Index=',index);
     buf:=a[1];                                  //Çàìåíà ïåðâîãî ýëåìåíòà,ñ òåì,îòêóäà ìû åãî âçÿëè
     a[1]:=a[index];
     a[index]:=buf;
     writeln('');
     for i:=1 to n do write(' a[',i,']=',a[i]);      //Âûâîä
end.

20.04.2012, 22:06

большое спасибо)

@3a9Ic · 20.04.2012, 22:07

Я буквально недавно, делал это задание для минимального элемента, можно было в поиске посмотреть.)

Risha26
		1
	Массив. Найти максимальный элемент массива и поменять его местами с первым элементом 20.04.2012, 21:40. Показов 3880. Ответов 3 Метки нет (Все метки) Дан массив целых чисел а1,…, аn. Найти максимальный элемент массива и поменять его местами с первым элементом.

@3a9Ic 141 / 129 / 113 Регистрация: 08.04.2012 Сообщений: 245
	20.04.2012, 22:07	4
	Я буквально недавно, делал это задание для минимального элемента, можно было в поиске посмотреть.) 0