1)В одноменрном массиве найит разность наибольшего и наименьшего элемента.
2)Дан одномерный массив. Вывести на экран числа >5
3)В одномерном массиве найти произведение нулевых элементов

1)
Var a:array[1..10000] of longint;n,i,min,max:longint;
Begin
readln(n);
for i:=1 to n do
read(a[i]);
max:=a[1];
min:=a[1];
for i:=2 to n do
begin
if (a[i]gt;max) then max:=a[i];
if (a[i]lt;min) then min:=a[i];
end;
writeln(max-min);
End.

2)
Var a:array[1..10000] of longint;
Begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i]gt;5) then write(a[i], );
writeln;
End.

3)
Var a:array[1..10000] of longint;i,n:longint;
Begin
readln(n);
for i:=1 to n do
read(a[i]);
writeln(0);
End.