Чтобы найти максимальный элемент в массиве и потом производить с ним какие-либо действия, нужно узнать его номер (индекс - I).Чтобы найти максимальный элемент в массиве и потом производить с ним какие-либо действия, нужно узнать его номер (индекс - I). Для этого вначале будем считать максимальным элементом первый, а потом в цикле сравнивать с ним все остальные. Для этого вначале будем считать максимальным элементом первый, а потом в цикле сравнивать с ним все остальные. Как только встретится элемент, больший максимального, мы запомним этот новый индекс. Как только встретится элемент, больший максимального, мы запомним этот новый индекс.

k:= 1; Max:=A[1]; For I := 2 to n do if A[I] > Max then Max :=A[I]; k := I; A[1] A[2]A[3]A[4]A[5]A[6] A[2]>MaxA[3]>MaxA[4]>MaxA[5]>MaxA[6]>Max 5>4(да) 7>5(да) 2>7 (нет) 9>7(да) 7>9 (нет) Max57799 k23355

Программу можно записать так: k := 1; Max :=A[1]; k := 1; Max :=A[1]; For I := 2 to n do For I := 2 to n do if A[I] > Max then k := I; После выполнения цикла и выхода из него максимальный элемент – это А[k]. Вывод на экран: Writeln (Max=А[k]); Writeln (Max=А[k]); Writeln (его номер-k); Writeln (его номер-k);

Program MAS; uses Crt; uses Crt; var M : array [1..100] of integer ; Max,I,k: integer; var M : array [1..100] of integer ; Max,I,k: integer; Begin ClrScr; Randomize; ClrScr; Randomize; Writeln (Исходный массив'); Writeln (Исходный массив'); For I:=1 to 10 do For I:=1 to 10 do begin begin M[I]:=Random (15); M[I]:=Random (15); Write (M[I]:6); Write (M[I]:6); end; end; Max:=M[1]; k:=1; Max:=M[1]; k:=1; For I:=2 to 10 do For I:=2 to 10 do if M[I]>Max then begin Max:=M[I]; k:=I; end; if M[I]>Max then begin Max:=M[I]; k:=I; end; Writeln; Writeln (Максимальный элемент=',Max); Writeln; Writeln (Максимальный элемент=',Max); Writeln(Номер маx элемента', k); Writeln(Номер маx элемента', k); Readln; Readln; End.

Program MaxElem; Program MaxElem; UsesCrt; Uses Crt; Type Mas= Array [1..100] of Real; Type Mas = Array [1..100] of Real; VarA : Mas; i, N : Integer; k : Integer; max : Real; Var A : Mas; i, N : Integer; k : Integer; max : Real; BEGIN BEGIN СlrScr; СlrScr; Write ('Введите N = '); Write ('Введите N = '); ReadLn (N); ReadLn (N); For i := 1 to N do For i := 1 to N do begin begin Write ('A [ ', i, ' ] = '); Write ('A [ ', i, ' ] = '); ReadLn (A[i]) ReadLn (A[i]) end; end; max := A[1]; k:=1; max := A[1]; k:=1; For i := 2 to N do For i := 2 to N do If A[i] > max then begin max := A[i]; k := i ; end; If A[i] > max then begin max := A[i]; k := i ; end; WriteLn; WriteLn (Номер max элемента=', k ); WriteLn; WriteLn (Номер max элемента=', k ); WriteLn ('Его значение ', max : 5 : 1); WriteLn ('Его значение ', max : 5 : 1); ReadLn ReadLn END.

Задать случайным образом 9 элементов числового массива – дробные числа от 10 до 50. В этом массиве: Задать случайным образом 9 элементов числового массива – дробные числа от 10 до 50. В этом массиве: Найти минимальный элемент и увеличить его на 100. Найти максимальный элемент и поменять его местами с первым элементом.

Найти минимальный и максимальный элемент в числовом массиве из 10 элементов, заданных с клавиатуры. Поменять их местами.Найти минимальный и максимальный элемент в числовом массиве из 10 элементов, заданных с клавиатуры. Поменять их местами.