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

1) разность максимальной и минимальной скоростей автомобилей;

2) количество автомобилей, скорость которых не превышала 30 км/ч.

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

Program Cars;

var

i, n, v, max_v, min_v: integer;

Begin

//Ввод числа авто

readln(n);

//Поиск максимальной и минимальной скорости

max_v := 0;

min_v := 300; //Берём противоположные скорости, чтобы найти максимум и минимум

for i := 1 to n do

begin

read(v);

if (v > max_v) then

max_v := v;

if (v < min_v) then

min_v := v;

end;

//Вывод ответов

writeln(max_v);

if (min_v < 30) then

write('YES')

else

write('NO');

End.

Подробнее - на -

Объяснение:

если под ячейкой поодразумевается байт (восемь бит) то:

(для беззнаковых (натуральных с нулём) )

или

- (для знаковых (целых) ) 

var a,res: integer;

begin

writeln('введите число');

readln(a);

res: =sqr(a);

writeln('квадрат числа,'a', равен,'res',');

readln;

end.