решить в паскале через for 1.Составить программу, которая бы работникам патрульной службы определять количество нарушителей превышения скорости на трассе, если известно, что на данном промежутке трассы установлено ограничение на скорость MAXV, а прибор фиксирует скорость автомобилей v1, v2, ..., vn.
2.Разработать алгоритм вычисления результатов участников спортивных соревнований по определенным возрастным категориям, если известно, что для участников до 15 лет результат должен находится в интервале [10,15], для участников от 16 до 20 лет - в интервале [16,20], для участников от 21 до 35 лет - в интервале [21,25], для участников от 36 до 45 лет - в интервале [26,30], а старше 45 лет - в интервале [20,30] .Данные задаются парами целых положительных чисел ( ai, bi), где ai - возраст i-го участников, bi - результат i-го участника, i = 1,2, ..., n.
1. Procedure...
var MAXV: real;
v: real;
i: integer;
k: integer
begin
k:= 0
v:= strtofloat(edit2.text)
MAXV:= strtofloat(edit1.text);
for i:= 1 to n do
begin
if v > MAXV
then k:= k + 1
end;
edit3.text:= floattostr(k)