Техническая система состоит из трех основных элементов с интенсивностями отказов λ1=9⋅10−3 1/ч, λ2 = 13,5⋅10−3 1/ч, λ3 = 4,5⋅10−3 1/ч, два из которых основные, а третий резервный. Определить наибольшую среднюю наработку до отказа резервированной системы и вероятность ее отказа в момент времени 500 час.

program prog;
var i, j, n, m_i, m_j: byte;
    A: array[1..100,1..100] of Real;
    maxmod: Real;
begin
randomize;
writeln('Vvedite N:');
readln(n);
{заполнение случайными числами, можно вводить вручную}
for i:=1 to n do
    for j:=1 to n do
        A[i,j]:=-100+random(200);
 
{поиск максимального по модулю элемента}
maxmod:=abs(A[1,1]);
m_i:=1;
m_j:=1;
for i:=1 to n do
 for j:=1 to n do
  if abs(A[i,j])>maxmod then
  begin
  maxmod:=abs(A[i,j]);
  m_i:=i; m_j:=j;
  end;
 
{Печать матрицы и ответа}
writeln('Исходная матрица:');
for i:=1 to n do
begin
 for j:=1 to n do write(A[i,j]:6:1);
 writeln;
end;
writeln('Максимальный по модулю элемент A[',m_i,';',m_j,'] = ', A[m_i, m_j]:6:1);
{вывод на печать уменьшенной матрицы}
for i:=1 to n do
 if (i<>m_i) then
 begin
 for j:=1 to n do
   if (j<>m_j) then write(A[i,j]:6:1);
 writeln;
 end;
readln;
end.

program massiv3_11;
uses crt;
var
  a:array [1..100] of integer;
i,n,m,b:integer;
begin
clrscr;
repeat
write ('Vvedite kol-vo elementov massiva (ne bolee 100): ');
readln (n);
until (n>0) and (n<=100);
 for i:=1 to n do
  begin
   write ('Vvedite a[',i,']: ');
   readln (a[i]);
  end;
 write ('Vvedite chislo b: ');
 readln (b);
 i:=1;
 while b>=a[i] do
  begin
   m:=i;
   i:=i+1;
  end;
 for i:=n+1 downto 1 do
  begin
   a[i]:=a[i-1];
   a[m]:=b;
  end;
 for i:=1 to n+1 do writeln (a[i]);
 readln;
end.