Алгоритм оказания первой что при оказании первой вам ничего не угрожает и вы не подвергаете себя опасности.Обеспечить безопасность пострадавшему и окружающим (например, извлечь пострадавшего из горящего автомобиля).Проверить наличие у пострадавшего признаков жизни (пульс, дыхание, реакция зрачков на свет) и сознания. Для проверки дыхания необходимо запрокинуть голову пострадавшего, наклониться к его рту и носу и попытаться услышать или почувствовать дыхание. Для обнаружения пульса необходимо приложить подушечки пальцев к сонной артерии пострадавшего. Для оценки сознания необходимо (по возможности) взять пострадавшего за плечи, аккуратно встряхнуть и задать какой-либо вопрос.
procedure p(a: mas; k: integer); begin if k <= n then begin if a[k] < 0 then write(a[k]:4); p(a, k+1); if a[n-k+1] > 0 then write(a[n-k+1]:4); end end;
var a: mas; i: integer;
begin randomize; writeln('Последовательность'); for i := 1 to n do begin a[i] := random(21)+1; if random(2)=1 then a[i]:=-a[i]; write(a[i]:4); end; writeln; writeln('Преобразованная последовательность'); p(a, 1); end.
