ФОРМИРОВАНИЕ МАССИВА ИЗ ЭЛЕМЕНТОВ ДРУГОГО
МАССИВА УДОВЛЕТВОРЯЮЩИХ ЗАДАННОМУ УСЛОВИЮ
ПОСТАНОВКА ЗАДАЧИ: Требуется из данного массива А, состоящего из 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.
З А Д А Н И Я:
9.1. Набрать и исполнить программу.
9.2. Изменить условие.
9.3. Вывести на экран сообщение о количестве найденных элементов.
9.4. Найти среднее арифметическое элементов нового массива.
ПРАКТИЧЕСКОЕ ЗАДАНИЕ № 10
#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.
З А Д А Н И Я:
10.1. Набрать и исполнить программу.
10.2. Найти минимальный элемент и его индекс.
10.3. Найти минимальный и максимальный элементы, и их индексы.
10.4. Заменить найденный минимальный элемент числом 100 и показать на экране массив с этой заменой.
Дата добавления: 2018-04-15; просмотров: 423; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!