Отказы технических систем из-за дефектов изготовления и нарушений режимов эксплуатации; многие современные потенциально опасные производства спроектированы так, что вероятность крупной аварии на них весьма высока и оценивается величиной риска 10-4 и более; ошибочные действия операторов технических систем; статистические данные показывают, что более 60% аварий произошло в результате ошибок обслуживающего персонала; концентрация различных производств в промышленных зонах без должного изучения их взаимного влияния; высокий энергетический уровень технических систем; внешние негативные воздействия на объекты энергетики, транспорта и др.
Program p1; Const N=10;//подставишь нужное N Var A:array[1..N] of integer; summa,kolvo,i:integer; Begin For i:= 1 to n do Begin A[i]:=random(101)-50; Write(A[i],' '); End; Writeln; For i:= 1 to n do If a[i] mod 2<>0 then Begin summa:=summa+A[i]; kolvo:=kolvo+1; End; Writeln('Среднее арифметическое = ',summa/kolvo); End.
Program p2; Const N=10;//подставишь нужное N Var A:array[1..N] of integer; kolvo,i:integer; Begin For i:= 1 to n do Begin A[i]:=random(101)-50; Write(A[i],' '); End; Writeln; For i:= 1 to n do If a[i] mod 2=0 then kolvo:=kolvo+1; Writeln('Число чётных элементов = ',kolvo); End.
Program p1;
Const N=10;//подставишь нужное N
Var A:array[1..N] of integer;
summa,kolvo,i:integer;
Begin
For i:= 1 to n do
Begin
A[i]:=random(101)-50;
Write(A[i],' ');
End;
Writeln;
For i:= 1 to n do
If a[i] mod 2<>0 then
Begin
summa:=summa+A[i];
kolvo:=kolvo+1;
End;
Writeln('Среднее арифметическое = ',summa/kolvo);
End.
Program p2;
Const N=10;//подставишь нужное N
Var A:array[1..N] of integer;
kolvo,i:integer;
Begin
For i:= 1 to n do
Begin
A[i]:=random(101)-50;
Write(A[i],' ');
End;
Writeln;
For i:= 1 to n do
If a[i] mod 2=0 then
kolvo:=kolvo+1;
Writeln('Число чётных элементов = ',kolvo);
End.