Напишите программу для решения следующей . камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё автомобилей, округляя значения до целых чисел. необходимо определить : 1)разность максимальной и минимальной скоростей автомобилей; 2)количество автомобилей, скорость которых не превышала 30 км/ч. программа получает на вход число проехавших автомобилей n (1> n> 30), затем указываются их скорости. значение скорости не может быть меньше 1 и больше 300. программа должна сначала вывести разность максимальной и минимальной скоростей автомобилей,затем количество автомобилей, скорость которых не превышала 30 км/ч. пример работы программы: входные данные выходные данные 4 33 74 0 69 63 96 выполнить в pascal abc net ответ отмечу как !
A:array[1..30] of integer;
N,k,i:byte;
Min,Max:integer;
Begin
ReadLn(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.