МАССИВА УДОВЛЕТВОРЯЮЩИХ ЗАДАННОМУ УСЛОВИЮ
ПОСТАНОВКА ЗАДАЧИ: Требуется из данного массива А, состоящего из N элементов, выбрать элементы, удовлетворяющие заданному ( пусть А(i)>T ), и сформировать из них массив B.
Исходный массив А: 4 6 8 2 23 1 9 Условие: A(i)>=8
Новый массив B: 8 23 9
Особенность решения: Индексы элементов массивов A и B не совпадают,
так как не все элементы массива A включаются в массив B.
Введем переменную, формирующую индексы и являющуюся счетчиком
элементов нового массива.
Program Massiv_po_Uslowiu; Uses crt;
. . .
procedure Mass_Usl;
Begin
write('Введите параметр условия: '); readln(t);
k:=0; {k- счетчик найденых элементов }
for i:=1 to n do if a[i]>=t then begin k:=k+1; b[k]:=a[i]; end;
end;
Begin
ClrScr; n:=20;
Input; { заполнение исходного массива A }
ClrScr;
Print(а, n); writeln; { печать исходного массива A }
Mass_Usl; { формирование массива по условию }
Print(b, k); writeln; { вывод на экран нового массива B }
Readkey;
End.
З А Д А Н И Я:
1. Набрать и исполнить программу.
2. Изменить условие.
3. Вывести на экран сообщение о количестве найденных элементов.
4. Найти среднее арифметическое элементов нового массива.
ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 39
#8. ОБРАБОТКА ОДНОМЕРНЫХ МАССИВОВ
ПОИСК МАКСИМАЛЬНОГО ЭЛЕМЕНТА В МАССИВЕ
