Первая при обмороке по пунктам Первым шагом при потере сознания человека необходимо уложить на кровать или на любую гладкую поверхность. При этом его голова должна находиться на одном уровне с телом и даже ниже. Нужно это для того, чтобы приток крови к мозгу несколько увеличился. Человеку необходимо обеспечить нормальное дыхание. Для этого нужно открыть окно и впустить в помещение свежий воздух, расстегнуть воротник, пояс и любую стесняющую тело одежду. Тело человека необходимо утеплить, а к ногам положить грелки. Конечности, спину и грудную клетку нужно растереть спиртом или водкой. Если под рукой этих средств не имеется, растереть можно просто сухими руками. Если имеется нашатырный спирт, смочить им ватку и поднести к носу потерявшего сознание. Делать это нужно через каждые 10 секунд. Если нашатырного спирта нет, воспользуйтесь уксусом, луковым соком и любым другим средством с резким запахом. Первая при обмороке также заключается в орошении лица холодной водой и легкие похлопывания по щекам. После того, как первая при обмороке проведена и человек пришел в себя, ему необходимо дать выпить сладкий чай или кофе, 10-15 капель валокордина на 1/4 стакана воды или 20-30 капель валерианы.
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк (столбцов) в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(n,n,-99,99);
a.Println(4);
Println(4*a.ColCount*'-');
var i:=ReadInteger('Укажите номер столбца (счет от 1):');
if i.InRange(1,a.ColCount) then
begin
var col:=a.Col(i-1);
Println('Сумма элементов столбца',col.Sum,'max=',col.Max)
end
else
Println('Недопустимый номер колонки')
end.
