Алгоритмы нахождения наибольшего или наименьшего элемента массива и его индекса

Задача 1. Дан массив K, состоящий из 45 элементов. Элементы массива - произвольные целые числа. Определить минимальный элемент массива и его индекс.

USES Crt;

VAR

K:ARRAY[0..45] OF INTEGER;

I,IND: BYTE; MIN:INTEGER;

BEGIN

ClrScr; Randomize;

WriteLn(' Значения элементов массива');

FOR I:=1 TO 45 DO Begin

K[I]:=Random(35)+6; Write(K[I]:3);

End; WriteLn;

MIN:=K[1]; IND:=1;

{ нахождение минимального значения и его индекса }

FOR I:=2 TO 45 DO

IF K[I]<MIN THEN Begin MIN:=K[I]; IND:=I; End;

WriteLn(' Минимальное значение = ',MIN);

WriteLn(' Индекс минимального значения = ',IND);

END.

Задача 2. Дан массив B, состоящий из N элементов. Элементы массива - произвольные целые числа. Определить сумму элементов, расположенных до максимального элемента массива.

USES Crt;

CONST N=20;

VAR

B:ARRAY[0..N] OF INTEGER;

I,IND: BYTE; MAX,S:INTEGER;

BEGIN

ClrScr; Randomize;

WriteLn(' Значения элементов массива');

FOR I:=1 TO N DO Begin

B[I]:=Random(35); Write(B[I]:3);

End; WriteLn;

MAX:=B[1]; IND:=1;

{ нахождение максимального значения и его индекса }

FOR I:=2 TO N DO

IF B[I]>MAX THEN Begin MAX:=B[I]; IND:=I; End;

WriteLn(' Максимальное значение = ',MAX);

{ нахождение суммы элементов, расположенных до максимального элемента }

S:=0;

FOR I:=1 TO IND-1 DO

S:=S+B[I];

WriteLn(' Cумма элементов, расположенных до максимального элемента =',S);

END.

Задача 3. Дан массив A, состоящий из N элементов. Элементы массива - произвольные целые числа. Заменить нулями все элементы массива, расположенные за минимальным элементом массива. Измененный массив вывести на экран.

USES Crt;

CONST N=15;

VAR

A:ARRAY[0..N] OF INTEGER;

I,IND: BYTE; MIN:INTEGER;

BEGIN

ClrScr; Randomize;

WriteLn(' Значения элементов массива');

FOR I:=1 TO N DO Begin

A[I]:=Random(400); Write(A[I]:4);

End; WriteLn;

MIN:=A[1]; IND:=1;

{ нахождение минимального значения и его индекса }

FOR I:=2 TO N DO

IF A[I]<MIN THEN Begin MIN:=A[I]; IND:=I; End;

WriteLn(' Минимальное значение = ',MIN);

{ замена нулями элементов, расположенных за минимальным значением }

FOR I:=IND+1 TO N DO

A[I]:=0;

WriteLn(' Измененный массив');

FOR I:=1 TO N DO

Write(A[I]:4);

END.

Задача 4. Дан массив A, состоящий из N элементов. Элементы массива - произвольные целые числа. Заменить нулями все элементы массива, расположенные между минимальным и максимальным элементами массива, кроме их самих. Измененный массив вывести на экран.

USES Crt;

CONST N=15;

VAR

A:ARRAY[0..N] OF INTEGER;

I, IMIN, IMAX, k1, k2: BYTE; MIN, MAX:INTEGER;

BEGIN

ClrScr; Randomize;

WriteLn(' Значения элементов массива');

FOR I:=1 TO N DO Begin

A[I]:=Random(270); Write(A[I]:4);

end; WriteLn;

MIN:=A[1]; MAX:=A[1]; IMIN:=1; IMAX:=1;

{ нахождение минимального и максимального значения и их индексов }

FOR I:=2 TO N DO Begin

IF A[I]<MIN THEN Begin MIN:=A[I]; IMIN:=I; End;

IF A[I]>MAX THEN Begin MAX:=A[I]; IMAX:=I; End;

End;

WriteLn(' Минимальное значение = ',MIN);

WriteLn(' Максимальное значение = ',MAX);

{ замена нулями элементов, расположенных между минимальным и максимальным

значением }

IF IMIN<IMAX THEN Begin K1:=IMIN+1; K2:=IMAX-1; End

ELSE Begin K1:=IMAX+1; K2:=IMIN-1; End;

FOR I:=K1 TO K2 DO

A[I]:=0;

WriteLn(' Измененный массив');

FOR I:=1 TO N DO

Write(A[I]:4);

END.

Задача 5. Дан массив чисел. Найти наибольший элемент, поставить его первым.

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.

Задача 6. Известны данные о среднемесячной температуре за год. Определить, какая была самая высокая температура летом и самая низкая зимой.

USES Crt;

VAR

MAS: ARRAY[1..12] OF REAL;

I: INTEGER; MIN,MAX:REAL;

BEGIN

ClrScr;

{ Заполнение массива с клавиатуры }

FOR I:=1 TO 12 DO Begin

Write(' Введите среднюю температуру за ',I,' месяц '); ReadLn(MAS[I]);

End;

MAX:=MAS[6]; MIN:=MAS[12];

{ Определение самой высокой температуры летом }

FOR I:=7 TO 8 DO

IF MAX<MAS[I] THEN MAX:=MAS[I];

{ Определение самой низкой температуры зимой }

FOR I:=1 TO 2 DO

IF MIN>MAS[I] THEN MIN:=MAS[I];

WriteLn(' Самая высокая температура летом ',MAX);

WriteLn(' Самая низкая температура зимой ',MIN);

END.

.....................................................................................................................................

Практические задания

.....................................................................................................................................

1. Дан массив чисел. Найти значение максимального элемента. Если таких элементов несколько, то определить, сколько их.

2. Дан массив чисел. Найти среднее арифметическое максимального и минимального элемента. Вывести значения и индексы этих элементов.

3. Дан массив чисел. Определить количество элементов, находящихся в интервале от1 до 12 и расположенных до максимального элемента массива.