// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (Q,m):=(420.0,0.12);
var dT:=ReadArrReal('Введите 6 значений температуры: ',6);
Writeln(' dT Уд.теплоемкость');
for var i:=0 to 5 do begin
Writeln(dT[i]:3,Q/(m*dT[i]):15:3)
end
end.
Пример во вложении
