else write(' Элемент равный ',L,' отсутствует');
end;
Begin
ClrScr; n:=20;
Input;
ClrScr;
Print; writeln; writeln;
write('Введите значение искомого элемента: '); readln(L);
Poisk(L);
Readkey;
End.
З А Д А Н И Я:
1. Набрать и исполнить программу, т. е. найти 3-4 элемента.
2. Если в массиве несколько одинаковых элементов, то найти первый из них и указать его индекс.
3. Подсчитать количество одинаковых элементов в массиве.
ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 41
#10. ОБРАБОТКА ОДНОМЕРНЫХ МАССИВОВ
У П О Р Я Д О Ч Е Н И Е М А С С И В А
ПОСТАНОВКА ЗАДАЧИ: Расположить элементы массива в порядке возрастания.
Из множества сортировок рассмотрим поиск MIN и перестановку.
Исходный массив: 3 2 -5 2 0 8 4
Конечный массив: -5 0 2 2 3 4 8
Program SortirowkaMassiva; uses crt;
. . .
procedure Sort;
var min: real;
Begin
for i:=1 to n do
Begin
min:=a[i]; k:=i;
for j:=i to n do
if a[j]<min then begin min:=a[j]; k:=j; end;
a[k]:=a[i];
a[i]:=min
End
end;
Begin
ClrScr;
Input;
ClrScr;
write('Исходный массив: '); Print; writeln;
Sort;
write('Конечный массив: '); Print;
readkey;
End.
З А Д А Н И Я:
1. Набрать и исполнить программу.
2. Отсортировать исходный массив по убыванию элементов.
3. Отсортировать исходный массив по возрастанию и убыванию элементов.
4. Отсортировать массив латинских букв.
ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 42
О Б Р А Б О Т К А М А Т Р И Ц
