Question

Упражнение 6 Информатика помогите пожалуйста

Answer 1

Ну как вариант:
Var n,k:integer;
a:real;
i:byte;

begin
for i:=1 to 7 do
begin
Write ('Температура в ',' ',i,' ','день');
read(n);
k:=k+n;
end;

a:=k/7;
write ('Средняя температура',' ',a);
End.

Answer 2

Я её ввёл показал ошибку

Answer 3

Вводимые значения должны быть целочисленными.

Answer 4

Сейчас напишу тему

Answer 5

Вывод массива