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

1) Var a:array[1..10000] of longint;n,i,min,max:longint;Beginreadln(n);for i:=1 to n doread(a[i]);max:=a[1];min:=a[1];for i:=2 to n dobeginif (a[i]>max) then max:=a[i];if (a[i]<min) then min:=a[i];end;writeln(max-min);End.2)Var a:array[1..10000] of longint;Beginreadln(n);for i:=1 to n doread(a[i]);for i:=1 to n doif (a[i]>5) then write(a[i],' ');writeln;End.3)Var a:array[1..10000] of longint;i,n:longint;Beginreadln(n);for i:=1 to n doread(a[i]);writeln(0);End.