Научный стиль — стиль научных сообщений. Сфера использования этого стиля — наука и научные журналы, адресатами текстовых сообщений могут выступать учёные, будущие специалисты, ученики любой человек, интересующийся той или иной научной областью; авторами же текстов данного стиля являются учёные, специалисты в своей области. Целью стиля можно назвать описание законов, выявление закономерностей, описание открытий, обучение и т. п.
Основная его функция — сообщение информации, а также доказательство ее истинности. Для него характерно наличие малых терминов, общенаучных слов, абстрактной лексики, в нем преобладает имя существительное, немало отвлеченных и вещественных существительных.
Научный стиль существует преимущественно в письменной монологической речи . Его жанры — научная статья, учебная литература, монография, школьное сочинение и т. д. Стилевыми чертами этого стиля являются подчёркнутая логичность, доказательность, точность (однозначность) , чёткость, обобщённость.
Осмысление хода истории неизбежно вызывает во о роли в ней той или иной личности: изменила ли она ход истории; было ли неизбежным такое изменение или нет; что случилось бы без этого деятеля? и т. п. Из очевидной истины, что именно люди делают историю, вытекает важная проблема философии истории о соотношении закономерного и случайного, которая, в свою очередь, тесно связана с во о роли личности. В самом деле, жизнь любого человека всегда соткана из случайностей: родится он в тот или иной момент, вступит в брак с тем партнером или другим, умрет рано или будет жить долго и т. п. С одной стороны, мы знаем огромное число случаев, когда смена личностей (даже при таких драматических обстоятельствах, как череда убийств монархов и переворотов) не влекла решающих перемен. С другой стороны, бывают обстоятельства, о которых сказано далее, когда даже мелочь может стать решающей. Таким образом, уловить, от чего зависит роль личности: от нее самой, исторической ситуации, исторических законов, случайностей или от всего сразу, и в какой комбинации, и как именно, – очень сложно.
Uses crt;
Var t: array [1 ..10] of real; i,pol,otr,nol: integer;
Begin
Writeln ('введите 10 элементов массива');
For I:=1 To 10 Do Read ( t[i] );
pol:=0; otr:=0;nol:=0;
for i:= 1 to 10 do
if t[i]>0 then pol:=pol+1 else
if t[i]<0 then otr:=otr+1 else nol:=nol+1;
Writeln ('число положительных элементов ',pol);
Writeln ('число отрицательных элементов ‘,otr);
Writeln ('число нулевых элементов ',nol);
Readkey
end.