Ответы на вопрос:
Var s: real; i: byte; a: array [1..7] of integer; begin for i: =1 to 7 do begin writeln('введите ', i, ' число: '); read(a[i]); s: =s+a[i]; end; s: =s/7; writeln('среднее арифметическое: ', s); end.
Популярно: Информатика
-
DenSkye17.12.2022 02:47
-
KODYASHOW14.03.2022 03:09
-
Arslanisyan09.06.2022 21:45
-
bahyt06108928.03.2022 03:15
-
daramarkel26.01.2021 21:37
-
zagena0928.04.2021 10:00
-
KiraKen03.01.2022 08:56
-
tv7antena05.01.2021 23:00
-
dariadarina121.02.2023 21:57
-
danikstremers126.03.2021 06:09