Алгоритм действий:
1. Вымыть руки теплой водой с мылом
2. Надеть перчатки и обработать их шариком со спиртом
3. Набрать лекарственное средство в шприц непосредственно из ампулы или через иглу, предварительно обработать ампулу шариком со спиртом.
4. Выпустить воздух из шприца
5. Положить шприц с лекарственным средством в стерильный лоток накрытый стерильной салфеткой
6. Взять 3 стерильных шарика (2 смоченных в спирте,1-сухой) и стерильную салфетку
7. Выпрямить руку пациента
8. Подложить клеенчатый валик под локтевой сгиб пациента
9. Наложить выше локтевого сгиба на 3-4 см жгут, концами вверх
10. Убедится, что пульс на лучевой артерии хорошо определяется
11. Попросить пациента несколько раз сжать и разжать кулак
12. Определить пальпаторно пунктируемую вену
13. Обработать область локтевого сгиба размером 10*10см стерильным спиртовым шариком в одном направлений
14. Вторым стерильным спиртовым шариком обработать область пунктируемой вены в том же направлений
15. Снять сухим шариком излишек спирта
16. Взять шприц и убедится, что в нем нет пузырьков воздуха
17. Зафиксировать пальцами левой руки пунктируемую вену ниже обработанной области, не касаясь обработанной поверхности
18. Пропунктировать вену одним из одномоментно или поэтапно)
19. Потянуть на себя поршень шприца, увидев появление крови, поймете, что вы попали в вену
20. Развязать свободной рукой жгут и попросить пациента разжать кулак.
Убедится еще раз, что игла не вышла из вены
21. Ввести лекарство, не меняя положения шприца, медленно, левой рукой, оставив в шприце 0,5 мл раствора
22. Извлечь иглу после введения лекарства быстрым движением
23. Прижать место пункции сухим стерильным шариком
24. Согнуть руку пациента в локтевом сгибе на 3-5 минут
25 Использованные шприц, иглу, шарики, перчатки выбросить в коробку безопасной утилизации (КБУ)
Если не видно на скриншоте (Я правильно понял,как нужно сделать?)
1)
Program v1;
var a:array[1..15]of integer;
i,n,kol:integer;
begin
randomize;
for i:=1 to 15 do a[i]:=random(70)+10;
write('Значение матрицы: ');
for i:=1 to 15 do write(a[i]:5); writeln;
kol:=0;
for i:=1 to 15 do
if a[i]>50 then kol:=kol+1;
writeln(kol);
end.
2)
Program v1;
var a:array[1..20]of integer;
i,n,kol:integer;
begin
randomize;
for i:=1 to 20 do a[i]:=random(100)+50;
write('Значение матрицы: ');
for i:=1 to 20 do write(a[i]:5); writeln;
kol:=0;
for i:=1 to 20 do
if a[i]<100 then kol:=kol+1;
writeln('Количество элементов массива, значение которых меньше 100: ',kol);
end.
