;
for i:2 to n do
if aimax then
begin
max:ai;
j:i;
end;
writeln(N max elements ,j);
readln;
end.
Пример 4: Составить программу нахождения максимального элемента в линейном массиве и замены его на "0".
Решение: Согласно приведенному выше алгоритму находим максимальный элемент и при повторном прохождении массива меняем его на "0". Выводим массив на экран.
Program Primer4;
var a:array 1. . 20 of integer;
i,n,max:integer;
begin
writeln(введите количество элементов);
read(n);
writeln(введите элементы массива);
for i:1 to n do
read(ai);
max:a1;
for i:2 to n do
if aimax then max:ai;
for i:1 to n do
if aimax then ai:0;
writeln(линейный массив);
for i:1 to n do
write (ai, );
readln;
end.
V. Подведение итогов работы.
1. Какими свойствами характеризуется линейный массив?
2. Как объявляется линейный массив? Как вводятся его элементы? Как выводится линейный массив на экран?
3. Каков алгоритм нахождения минимального/максимального элемента линейного массива?
4. Каков алгоритм нахождения суммы/произведения элементов линейного массива?
VI. Постановка домашнего задания
1. Найти произведение всех положительных элементов линейного массива.
2. Найти минимальный элемента и заменить его "100".
3. Найти номер минимального и максимального элементов.
4. Найти и вывести на экран все положительные элементы линейного массива.
5. Найти сумму всех элементов, кратных пяти.
Страницы: << < 1 | 2 | 3