Ответы на вопрос:
решение на free pascal ide 2.6.0
var s: array[1..15] of integer; k,max,arf: integer; begin max: =0; for k: =1 to 15 doread(s[k]); for k: =1 to 5 doif s[k]> max then max: =s[k]; for k: =7 to 15 doarf: =arf+k; arf: =round(arf/9); for k: =1 to 15 doif s[k]> arf then s[k]: =max; for k: =1 to 15 dowriteln('s[',k,']= ',s[k]); writeln('srednee arifmeticheskoe = ',arf); writeln('max = ',max); readln; readln; end.c
Популярно: Информатика
-
прост123228.06.2023 17:34
-
risj83risj25.01.2023 22:11
-
ruslan42403.12.2022 09:42
-
hgfdui01.06.2020 06:31
-
Zinovevadara19128.01.2023 05:39
-
NorthIndiana25.07.2022 07:29
-
sensed25.07.2021 16:48
-
77749524.04.2020 12:26
-
РАДЖАБ55522.04.2023 19:08
-
hbkkb08.03.2023 23:26