ОБРАБОТКА ОДНОМЕРНЫХ МАССИВОВ
№8. ПОИСК МАКСИМАЛЬНОГО ЭЛЕМЕНТА В МАССИВЕ
С ЗАПОМИНАНИЕМ ЕГО ПОЛОЖЕНИЯ (ИНДЕКСА)
ПОСТАНОВКА ЗАДАЧИ: Найти в массиве A, состоящем из n элементов, наибольший
элемент и запомнить его индекс (K).
Program MaxElMassiva;
uses crt;
{ описание массива и переменных }
{ процедура ввода массива }
{ процедура вывода массива }
procedure MaxEl;
begin
max:=a[1];
k:=1;
for i:=1 to n do
if max<a[i] then
begin
max:=a[i];
k:=i;
end;
writeln('Максимальный элемент массива А равен ',max);
writeln('Максимальный элемент массива стоит на ' ,k, ' месте);
end;
Begin
ClrScr;
n:=20;
Input;
ClrScr;
Print;
writeln;
MaxEl;
Readkey;;
End.
З А Д А Н И Я:
1. Набрать и исполнить программу.
2. Найти минимальный элемент и его индекс.
3. Найти минимальный и максимальный элементы, и их индексы.
4. Заменить найденный минимальный элемент числом 100 и показать
на экране массив с этой заменой.