Ответы на вопрос:
program noname; uses crt; vara: array[1..1000] of integer; i,k: integer; s: real; beginclrscr; i: =1; k: =0; write('vvedi chislo '); readln(a[1]); while a[i]< > 1000 do begink: =k+a[i]; i: =i+1; write('vvedi chislo '); readln(a[i]); end; i: =i-1; s: =k/i; writeln(s); readkey; end.
Популярно: Информатика
-
круасана16.01.2020 04:38
-
Лилия351026.08.2021 18:56
-
Nr200614.01.2020 12:33
-
alinasolnishko2106.04.2022 17:38
-
Mushello231.08.2022 20:43
-
roma627910.04.2021 02:47
-
kisik40426.04.2020 17:22
-
chuevasasha28.02.2020 10:13
-
marinaboarskaa4118.10.2022 19:19
-
gif1028.03.2021 19:05