Для обеспечения безопасности от камнепадов альпинисты и горные туристы должны соблюдать следующие правила:
Преодолевать опасные участки пути в наиболее безопасное время дня.
Переходить камнеопасные кулуары у их верховьях.
В камнеопасном кулуаре движение осуществлять по одному с тщательной страховкой.
При подъеме и спусках по осыпям участникам группы соблюдать минимальный интервал.
Не допускать нахождения участников друг над другом, в особенности при движении одновременно двух групп.
При движении по ломким скалам следует тщательно проверять все точки опоры, опираться на них так, чтобы не оторвать их от склона. Каждый сдвинутый камень следует удержать на месте и предупредить товарища о его непрочности. Отвалившийся камень следует удержать и отложить в сторону.
При большом количестве участников движение допустимо двум группам параллельно вверх или вниз или нижней группе следует выходить после того, как верхняя уйдет в сторону.
Не находиться на опасном месте в дождь, снегопад, грозу, при сильном ветре, в сумерки.
При переходе опасных мест в каждой группе нужно выделить наблюдающего, который постоянно следит за обстановкой вверху и в случае камнепада предупреждает об этом группу громким, но спокойным возгласом "камень!". Этим же сигналом пользуется и тот, кто случайно свалит камень и он покатится вниз.
В случае камнепада необходимо прижаться к стене, под выступ, карниз и др. Если же укрытия нет, то остаться на месте и следить за полетом камня, а в последнее мгновение отскочить в сторону от него.
Ну и сюда скину. Вдруг не заметишь) Эта автоматически тебе всё сделает. Var i, n, max : Integer; a : array [1..30] of Integer; begin for i := 1 to 30 do begin Write('a[', i, ']='); a[i]:=i+1; if max<a[i] then max:=a[i]; writeln(a[i]); end; writeln('Максимальный элемент равен: ',max); end.
Если нужно будет ввести последовательность с клавиатуры, то вот: Var i, n, max : Integer; a : array [1..30] of Integer; begin for i := 1 to 30 do begin Write('a[', i, ']='); ReadLn (a[i]); if max<a[i] then max:=a[i]; end; writeln('Максимальный элемент равен: ',max); end.
Братство,содружество,единство