Правила дорожнього руху України (ПДР) — системний перелік правил для безпеки дорожнього руху в Україні. Як і ПДР інших країн, Правила дорожнього руху України регулюють обов'язки водіїв та пішоходів, а також визначають технічні вимоги до транспортних засобів.
Чинні ПДР України затверджені Постановою Кабінету Міністрів України від 10 жовтня 2001 р. № 1306, яка набрала чинності з 1 січня 2002 року[1]. До того діяли ПДР, затверджені Постановою КМУ від 31 грудня 1993 р. № 1094[2]. У СРСР діяли ПДР, затверджені в 1940, 1960, 1973, 1980, 1986 роках[3].
ПДР України засновані на Законі України «Про дорожній рух» та Віденській конвенції про дорожній рух 1968 року (ратифікованої Українською РСР 1974 року[4]). Уніфікація цих правил з міжнародними стандартами є важливим фактором полегшення учасників дорожнього руху та інших осіб не повинні створювати небезпеку чи перешкоду для руху, загрожувати життю або здоров'ю громадян, завдавати матеріальних збитків; перелік і значення термінів.
Объяснение:
var
a,i,n,a1:integer;
begin
a1:=30000;
read(n);
for i:=1 to n do begin
read(a);
if (a<a1) and (a div 10 <10) and (a div 10 >1)and (a mod 2 = 0) then a1:=a;
end;
writeln(a1);
end.
var
b,x,c:real;
i,n,a:integer;
begin
x:=0;
b:=0;
read(n);
for i:=1 to n do begin
read(a);
if (a mod 7 = 0) or (a mod 3 = 0) then b:=b+a;
if (a mod 7 =0) or (a mod 3 = 0) then x:=x+1;
end;
c:=b/x;
writeln(c);
end.
var
a,b,x,i,n:integer;
begin
x:=0;
read(n);
for i:=1 to n do begin
read(a);
if (a mod 10 <>1) and (a mod 2 = 1) then x:=x+1;
end;
writeln(x);
end.
A: array [1..20] of integer;
B, C: array [1..10] of integer;
i, tmp: byte;
begin
for i := 1 to 20 do
begin
A[i] := random(30)+1;
write(A[i]:4);
tmp := tmp + 1;
if i mod 2 <> 0 then C[tmp] := A[i]
else
begin
B[tmp - 1] := A[i];
tmp := tmp - 1;
end;
end;
writeln;
for i := 1 to 10 do write(B[i]:4);
writeln;
for i := 1 to 10 do write(C[i]:4);
end.