Вопрос от посетителя:
Составьте программу для ввода и вывода температуры за неделю.
Результат может быть таким:
1 сентября температура была 17
2 сентября температура была 15
3 сентября температура была 16
4 сентября температура была 19
Илюха отвечает:
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.