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

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.

Comments

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

---

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

---

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

---

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