Дан массив чисел. Найти наибольший элемент, поставить его первым (программа Паскаль)

201

290

Посмотреть ответы 2

Ответы на вопрос:

gigov1610sp

Другие предметы

4,6(90 оценок)

USES Crt;
CONST M=100;
VAR
   MAS: ARRAY[1..100] OF INTEGER;
   I,K,N,NEW: INTEGER;
BEGIN
   ClrScr;
   Write(' Введите размер массива N= ');   ReadLn(N);
   { Заполнение массива с клавиатуры }
   FOR I:=1 TO N DO Begin
     Write(' Введите ',I,' элемент массива '); ReadLn(MAS[I]);
   End;
   NEW:=MAS[N];   K:=N;
   { Нахождение наибольшего элемента и его индекса }
   FOR I:=N DOWNTO 1 DO
     IF MAS[I]>NEW THEN Begin NEW:=MAS[I]; K:=I; End;
   { Перестановка местами первого и наибольшего элементов }
   MAS[K]:=MAS[1]; MAS[1]:=NEW;
   WriteLn(' Измененный массив');
   FOR I:=1 TO N DO
     Write(MAS[I]:4);
END.