Const N = 10; var i, sum: integer; M: array[1..10] of integer; begin sum := 0; for i := 1 to N do begin M[ i ] := random(11); write( M[i], ' '); if ( M[ i ] mod 2 <> 0 ) then sum := sum + M[ i ]; end; writeln(); writeln('Сумма всех нечетных элементов: ', sum); end.
Горный компас Брантона, точный инструмент Его обычно монтируют на прямоугольной пластине (латунной или же из пластмассы). На лимбе компаса деления идут от 0° до 360° в направлении против движения часовой стрелки. У обозначения 0° стоит буква С (север), у 90° буква В (восток), у 180° буква Ю (юг), у 270° буква 3 (запад). С (север) и Ю (юг) расположены против коротких сторон компаса, В (восток) и 3 (запад) — против его длинных сторон. В центре компаса установлена короткая вертикальная ось, вокруг которой в горизонтальной плоскости может вращаться магнитная стрелка с чёрным (синим) северным и светлым (красным) южным концами.
Посредством арретира n магнитная стрелка может быть приподнята кверху, прижата к стеклу компаса и выведена из действия или, наоборот, опущена на остриё вертикальной оси и введена в действие. При магнитной стрелки и лимба определяют азимуты различных направлений вообще, а также азимуты простирания и падения слоёв.
Второй частью компаса являются клинометр (отвес К) и полулимб с делениями от 0° до 90° в обе стороны. Клинометром и делениями на полулимбе определяют углы падения слоёв.
В степных районах племена осваивали скотоводство, поскольку есть необходимые условия для разведения скота. Постоянное передвижение стад с одного пастбища на другое привело к тому, что и люди стали вести кочевой образ жизни.
В лесных районах люди еще долго занимались охотой и собирательством, поскольку в лесу нет условий для разведения скота или для земледелия. Но в лесостепной полосе были условия для земледелия. Люди зависели от пахотных земель и перешли к оседлому образу жизни. У них появились поселения, похожие на города.
var i, sum: integer;
M: array[1..10] of integer;
begin
sum := 0;
for i := 1 to N do begin
M[ i ] := random(11);
write( M[i], ' ');
if ( M[ i ] mod 2 <> 0 ) then sum := sum + M[ i ];
end;
writeln();
writeln('Сумма всех нечетных элементов: ', sum);
end.