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

случайное число из диапазона [0, x)
Команда randomize – обновление базы

случайных чисел

[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.

[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.

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.

[-50, 50).
2. Найти сумму элементов произвольного линейного массива, кратных заданному

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