Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Объяснение:
Ну так как то
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 xxx;
var s : string;
а : integer;
writeln ('введите слово-');
readln (s);
а: = length(s)
writeln ('длина слова=', a);
readln
Популярные вопросы