Напишите программу для решения следующей задачи. Камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё автомобилей, округляя значения до целых чисел. Необходимо определить :
1)разность максимальной и минимальной скоростей автомобилей;
2)количество автомобилей, скорость которых не превышала 30 км/ч.

Программа получает на вход число проехавших автомобилей N (1>N>30), затем указываются их скорости. Значение скорости не может быть меньше 1 и больше 300. Программа должна сначала вывести разность максимальной и минимальной скоростей автомобилей,затем количество автомобилей, скорость которых не превышала 30 км/ч.

ПРИМЕР РАБОТЫ ПРОГРАММЫ:

ВХОДНЫЕ ДАННЫЕ ВЫХОДНЫЕ ДАННЫЕ
4 33
74 0
69
63
96

ВЫПОЛНИТЬ В PASCAL ABC NET
ОТВЕТ ОТМЕЧУ КАК ЛУЧШИЙ!!!

Var   A:array[1..30] of integer;   N,k,i:byte;   Min,Max:integer;BeginReadLn(N);k:=0;For i:= 1 to N do    Begin    Read(A[i]);    if A[i]<= 30 then k:=k+1    End;Max:=A[1];Min:=A[1];For i:= 2 to N do    Begin    if A[i]>Max then Max:=A[i];    if A[i]<Min then Min:=A[i];    End;WriteLn(Max-Min,' ',k);End.