Question

Напишите программу для решения следующей задачи. Камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё автомобилей, округляя значения до целых чисел. Необходимо определить : 1)разность максимальной и минимальной скоростей автомобилей; 2)количество автомобилей, скорость которых не превышала 30 км/ч. Программа получает на вход число проехавших автомобилей N (1>N>30), затем указываются их скорости. Значение скорости не может быть меньше 1 и больше 300. Программа должна сначала вывести разность максимальной и минимальной скоростей автомобилей,затем количество автомобилей, скорость которых не превышала 30 км/ч. ПРИМЕР РАБОТЫ ПРОГРАММЫ: ВХОДНЫЕ ДАННЫЕ ВЫХОДНЫЕ ДАННЫЕ 4 33 74 0 69 63 96 ВЫПОЛНИТЬ В PASCAL ABC NET ОТВЕТ ОТМЕЧУ КАК ЛУЧШИЙ!!!

Answer 1

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