Ответы на вопрос:
Const n=10; var a: array[1..n] of integer; i,max,p,sr,k: integer; begin p: =1; max: =1; for i: =1 to n do begin read(a[i]); p*=a[i]; if odd(a[i]) then begin sr+=a[i]; k+=1; end; if a[i]> a[max] then max: =i; end; write('p=',p,' sr=',sr/k: 3: 2,' max=',a[max]); end.
Популярно: Информатика
-
vova2505117.12.2020 11:57
-
gravasamp06.04.2020 06:39
-
alexsashinav23.08.2022 16:01
-
trixi1989vv23.12.2021 20:13
-
Diana12b25.10.2021 21:06
-
ралина3505.12.2022 01:02
-
катябабаева21.06.2022 13:52
-
аркадий4716.01.2020 12:33
-
resssnizisss24.06.2020 14:23
-
карамба11110.05.2022 00:50