45% травм- бытовые, то есть полученные дома, например, ребенок опрокинул на себя кастрюлю с горячей водой ( ожог) или сунул пальцы в розетку ( удар электротоком) 36% травм- уличные, то есть полученные вне дома, на улице, например, ребенок упал с горки ( ушиб или перелом) или залез на дерево, упал и ударился головой ( сотрясение мозга или черепно- мозговая травма) 1%- школьная, например бежал и врезался в дверь со стеклом ( порезы) или на уроке физкультуры повредил ногу ( например ушиб ) 4%- дорожная, это уже в основном ДТП, переходил дорогу в неположенном месте, сбила машина ( переломы, черепно-мозговые травмы и т.д.)
/Program granat; Uses Crt; var A: array [1..10] of integer; i,k,x,z,vsp:integer; begin write ('Исходный массив:'); for i := 1 to 10 do begin A[i]:=random(10); {Заполняем массив}Write (A[i]:3);end; writeln; begin for k:=1 to 9 do begin x:=A[k];vsp:=k; for i:=k+1 to 10 do if a[i]<x then begin x:=A[i];vsp:=i;end; if vsp>k then begin z:=a[k];a[k]:=a[vsp];a[vsp]:=z;end;end;end; write ('Отсортированный массив:');for i := 1 to 10 doWrite (A[i]:3);writeln; begin for i:=1 to 10 do if A[i] mod 2 = 0 then Write (A[i]:3); end;end.
