Массив содержит значения 5 температур в градусах Цельсия (Тс):-5, -3, 1, 11, 19....

Question

Массив содержит значения 5 температур в градусах Цельсия (Тс):-5, -3, 1, 11, 19. Составить программу перевода этих значений в Кельвины (Тк) и вывод их (Тк=Тс-273).
Pascal ABC

Answer 1

Const Tc: array[1..5] of integer=(-5, -3, 1, 11, 19);
var i:integer;
begin
writeln(' Tc  Tk');
for i:=1 to 5 do writeln(Tc[i]:2,' ',Tc[i]-273:5);
end.

Результат:
 Tc Tk
-5 -278
-3 -276
 1 -272
11 -262
19 -254