Нахождение наибольшего и наименьшего элемента линейного массива

1. Нахождение наибольшего и наименьшего элемента линейного массива

Презентация 9-22
Нахождение наибольшего
и наименьшего элемента
линейного массива

2. Заполнение массива

Функция random генерирует случайное число из
диапазона [0, 1)
Функция random(x)генерирует случайное число
из диапазона [0, x)
Команда randomize – обновление базы случайных
чисел

3. Заполнение массива (пример 1)

Заполнение массива произвольными целыми числами
из диапазона [0; 100)
program pr_1;
var A: array [1..8] of integer;
var i: integer;
begin
cls;
writeln('Задача 2. Формирование массива А
(заполнение случайными числами)');
randomize;
for i:=1 to 8 do
begin
A[i]:=random(100);
writeln('A[', i, ']=', A[i])
end;
end.

4. Пример 2

Найти наибольший элемент произвольного линейного
массива.
program pr_2;
var A: array [1..10000] of integer;
var i, max, n: integer;
begin
cls;
writeln('Задача 3. Нахождение наибольшего элемента');
randomize;
write('Введите количество элементов n ');
readln(n);
for i:=1 to n do
begin
A[i]:=random(30);
writeln('A[', i, ']=', A[i])
end;
max:=A[1];
for i:=2 to n do
if A[i]>max then
max:=A[i];
write('max=', max)
end.

5. Пример 3

Найти сумму элементов линейного массива А(12),
кратных 3.
program pr_3;
var A: array [1..12] of integer;
var i, s: integer;
begin
cls;
writeln('Задача 3. Нахождение суммы');
randomize;
for i:=1 to 12 do
begin
A[i]:=random(100);
writeln('A[', i, ']=', A[i])
end;
for i:=1 to 12 do
if A[i] mod 3=0 then
s:=s+A[i];
write('s=', s)
end.

6. Задачи

1. Найти минимальный по модулю элемент
массива K(9). Диапазон элементов [-50, 50).
2. Найти сумму элементов произвольного
линейного массива, кратных заданному числу.
3. Составить программу, считающую сколько в
линейном массиве D(N) элементов равных нулю, и
выводящую на экран номера этих элементов.
Диапазон элементов [-30, 30).
4. Заменить элементы массива В(11) разностью
элемента и среднего арифметического. Вывести
на экран среднее арифметическое и новые
элементы массива.