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

const Tc: array[1..5] of integer=(-5, -3, 1, 11, 19);var i:integer;beginwriteln(' Tc  Tk');for i:=1 to 5 do writeln(Tc[i]:2,' ',Tc[i]-273:5);end.Результат: Tc Tk-5 -278-3 -276 1 -27211 -26219 -254