Ответы на вопрос:
Program z; var a,i: integer; max: real; begin max: =0; i: =0; repeat writeln('введите число'); read(a); max: =max+a; i: =i+1; until a=0; writeln('сумма =',max); writeln('средние значение =',max/i); end.
Популярно: Информатика
-
Гогенцоллерн28.06.2023 13:03
-
Марямчик03.02.2020 06:54
-
уяеный22230.04.2021 01:46
-
konuj15.06.2023 00:51
-
28номер10.02.2022 17:09
-
Инна123443211486520.01.2020 23:19
-
ирина183418.05.2021 09:33
-
alenaefremova7913.03.2020 14:24
-
YuLia12062028.08.2021 00:48
-
bisenkoda05.12.2020 16:18