Ответы на вопрос:
Var a: array[1..5] of integer; sr,i: integer; s: string; sar: real; begin sr: =0; s: =''; for i: =1 to 5 do begin readln(a[i]); sr: =sr+a[i]; s: =s+inttostr(a[i])+', '; end; sar: =sr/5; s[length(s)]: =''; writeln(s); writeln('среднее равно: ',sar); end.
Популярно: Информатика
-
memasik6716.06.2020 02:37
-
Samoilov290321.09.2020 21:58
-
arturshubin2419.08.2020 20:35
-
alinadogarowa17.04.2023 15:07
-
elizabetfox122218.03.2022 22:54
-
anyalogunova129.11.2022 04:51
-
emilinloveTV04.07.2021 14:49
-
Anastasiya2112610.09.2021 05:16
-
Ученик1209009.03.2022 21:14
-
Аолвлвьвтадвлвл06.04.2020 00:20