Записать число в нормальной форме
217,93

Связи между элементами могут быть жесткими (таковы они обычно в технике, например, карданный вал в автомобиле) и гибкими - изменяющимися в процессе функционирования системы (такие связи присущи живым существам, экономическим и общественным системам). Кроме этого выделяют главные и второстепенные, а так же внутренние и внешние связи. Главные связи обеспечивают нормальное функционирование системы, и их разрушение приводит к выходу системы из стоя. Второстепенные связи могут в той или иной степени влиять на работу системы, однако их утрата в целом не приводит к заметному изменению свойств и функций системы.

Связи между элементами устанавливаются: в технических системах - при проектировании; в экономических системах - обществом; в живых организмах - естественным путем (природой).

Program Temperatura;

Var  d, k, T: integer;  f: byte;  a: array [1..7] of integer;

Begin  f := 0;k := 0; 

Writeln('Введите температуру'); 
 for d := 1 to 7 do  Begin   
 Write(d, ' день: ');   
Readln(a[d]);     
 end; 

 for d := 1 to 7 do    if a[d] > 0            then   
 Begin     
k := k + 1;   
f := 1;   
end; 

 if f = 0        then    Writeln('Всю неделю температура была  ниже нуля.') 
else   
Writeln('Дни с температурой выше нуля - ', k); 
  
T := a[1] + a[2] + a[3] + a[4] + a[5] + a[6] + a[7]; 
WriteLn('Средняя температура за неделю:', T / 7:0:2);
end.