program pr;
var i:integer;
mas:array[1..7]of integer;
begin
for i:=1 to 7 do
writeln ('Введите температуру ', i ,' сентября');
readln (mas[i]);
end;
for i:=1 to 7 do writeln (i, ' сентября температура была ' mas[i]);
readln;
end.
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.