Question

В течение недели температура воздуха составляла 18,20,22,19,17,18,20 градусов. Составьте программу, которая формирует массив констант и выводит значения температуры по дням в столбец в следующем виде:. 1-й день: температура воздуха 18 градусов.
2-й день: температура воздуха 20 градусов.
.......​

Answer 1

const

a : array[1..7] of integer = (18, 20, 22, 19, 17, 18, 20);

var r : integer;

begin

for r := 1 to 7 do

   writeln(r, '-й день: температура воздуха ', a[r], ' градусов');

end.