Question

Составьте программу для ввода и вывода температуры за неделю.

    Результат может быть таким:

1 сентября температура была 17

2 сентября температура была 15

3 сентября температура была 16

4 сентября температура была 19

Answer 1

program pr;

var i:integer;

     mas:array[1..7]of integer;

begin

for i:=1 to 7 do 

begin

writeln ('Введите температуру ', i ,' сентября');

readln (mas[i]);

end;

for i:=1 to 7 do writeln (i, ' сентября температура была ' mas[i]);

readln;

end.