ПОСТАНОВКА ЗАДАЧИ: Найти в массиве 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 и показать
на экране массив с этой заменой.
ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 40
#9. ОБРАБОТКА ОДНОМЕРНЫХ МАССИВОВ
ПОИСК ЗАДАННОГО ЭЛЕМЕНТА В МАССИВЕ
ПОСТАНОВКА ЗАДАЧИ: Определить, есть ли в заданном массиве элемент равный L.
Имеется массив А: 3 1 2 5 3 4 8 L=5
В массиве А имеется элемент равный 5
В данной программе можно использовать "флажок" - специальную переменную, которая принимает значения "истина" или "ложь" в зависимости от того найден элемент или нет.
Program Poisk_El_Massiva; uses crt;
. . .
procedure Poisk(L: integer);
var fl: boolean;
Begin
fl:=false;
for i:=1 to n do if a[i]=L then fl:=true;
