Ответы на вопрос:
Var temper: array[1..7] of integer; i,s: integer; sa: real; begin writeln('введите 7 значений температуры воздуха: '); s: =0; for i: =1 to 7 do begin readln(m[i]); s: =s+m[i]; end; sa: =s/7; writeln(sa); readln; end.
Популярно: Информатика
-
ba15070402.06.2020 12:45
-
Ctatuetca01.04.2021 07:27
-
Минут50529.11.2020 01:53
-
vlad20051303.04.2021 03:55
-
geniip17.04.2020 06:29
-
Sofia66709.01.2021 08:15
-
LeklA15.01.2023 03:17
-
SashylikS30.07.2020 16:05
-
olyacolesnik2009.11.2022 14:21
-
Студентка16епта04.04.2020 11:50