Информатика: Як записати у вигляді складеної умови полаійну нерівність

anna3371

15.11.2022 00:01

Информатика

Есть ответ 👍

Як записати у вигляді складеної умови полаійну нерівність

212

214

Посмотреть ответы 1

Ответы на вопрос:

4kusssssp08s5c

Информатика

4,8(79 оценок)

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.