Дан двумерный массив размерностью 5х6, заполненный целыми числами. Сформировать одномерный массив, каждый (программа Паскаль)

USES Crt;
 VAR
   H:ARRAY[0..5,0..6] OF INTEGER;   K:ARRAY[0..5] OF INTEGER;  
   I,J:BYTE;   S:INTEGER;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение двумерного массива случайным образом и вывод в виде     прямоугольной матрицы }
   WriteLn(' Значения двумерного массива');
   FOR I:=1 TO 5 DO Begin
     FOR J:=1 TO 6 DO Begin
       H[I,J]:=Random(23);  Write(H[I,J]:3);
     End;     WriteLn;
   End;   WriteLn;
   { Нахождение суммы элементов строк и заполнение одномерного массива }
   WriteLn(' Значения одномерного массива');
   FOR I:=1 TO 5 DO Begin
     S:=0;
     FOR J:=1 TO 6 DO
       S:=S+H[I,J];     
     K[I]:=S;     Write(K[I]:4);
   End;
 END.

СТАТТЯ 78 Режими підвищеної готовності та надзвичайної ситуації

1. У разі загрози виникнення надзвичайної ситуації залежно від прогнозованих наслідків та можливого рівня надзвичайної ситуації за рішенням Кабінету Міністрів України, Ради міністрів Автономної Республіки Крим, місцевих державних адміністрацій, органів місцевого самоврядування в Україні або у межах конкретної її території тимчасово вводиться режим підвищеної готовності.

2. У разі виникнення надзвичайної ситуації з тяжкими наслідками за рішенням Кабінету Міністрів України, Ради міністрів Автономної Республіки Крим, місцевих державних адміністрацій, органів місцевого самоврядування в Україні або у межах конкретної її території тимчасово вводиться режим надзвичайної ситуації.

3. Умови і порядок введення режимів підвищеної готовності та надзвичайної ситуації, завдання та порядок взаємодії суб’єктів забезпечення цивільного захисту щодо запобігання та ліквідації наслідків надзвичайних ситуацій у зазначених режимах визначаються Положенням про єдину державну систему цивільного захисту, що затверджується Кабінетом Міністрів України.

Объяснение:

Зависимость сопротивления от температуры определяется по формуле:

R = R₀(1+a(t-t₀)),

где R – сопротивление при температуре t,

R₀ - исходное сопротивление при начальной температуре t₀,

a – температурный коэффициент сопротивления материала (0,004041 1/°С для меди).

Поскольку в формуле приведена разность температур, то можно использовать и шкалу Кельвина, и шкалу Цельсия.

R = R₀ +aR₀t - aR₀t₀

aR₀t = R - R₀ + aR₀t₀

Находим конечную температуру t:

t = (R - R₀ + aR₀t₀) / aR₀ = (R - R₀ ) / aR₀ + t₀ = (0,58 Ом - 0,52 Ом) / 0,004041 1/°С * 0,52 Ом + 18 °С = 47 °С.