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

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

Заполнение массива (пример 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.

Пример 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.

Пример 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.