Даю 50 баллов. помогите решить ** фото. Срочно буду благодарна.

Question

Даю 50 баллов. помогите решить на фото. Срочно буду благодарна.

---

Comments

Какая страница ?

Answer 1

// 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.

Пример во вложении

---