425-mashq "men nuqta va vergulni qayerlarda ishlatishni bilaman" ​

Program Program1;
Var
i,min,max,nmin,nmax:integer;
a:array [1..10] of integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(100)+1;
writeln('a[',i,']=',a[i]);
end;
nmin:=1;
min:=a[nmin];
nmax:=1;
max:=a[nmax];
for i:=1 to 10 do
begin
if a[i]>max then
begin
nmax:=i;
max:=a[i];
end;
if a[i]<min then
begin
nmin:=i;
min:=a[i];
end;
end;
a[nmin]:=max;
a[nmax]:=min;
writeln('Минимальный элемент a[',nmin,']=',min,' Максимальный элемент a[',nmax,']=',max);
writeln('Полученный массив:');
for i:=1 to 10 do
writeln('a[',i,']=',a[i]);
end.

1.Извлечь пострадавшего из воды

2.Уложить пострадавшего животом на свое колено, дать воде стечь из дыхательных путей. Обеспечить проходимость верхних дыхательных путей. Очисти полость рта от посторонних предметов

3.Определить наличие пульса на сонных артериях, реакцию зрачков на свет, самостоятельного дыхания.

4.Если пульс, дыхание и реакция зрачков на свет отсутствуют — немедленно приступать к сердечно-легочной реанимации. Продолжать реанимацию до прибытия медицинского персонала или до восстановления самостоятельного дыхания и сердцебиения

5.После восстановления дыхания и сердечной деятельности придать пострадавшему устойчивое боковое положение. Укрыть и согреть его. Обеспечь постоянный контроль за состоянием