Сформировать массив с клавиатуры из n элементов (n - описываем как константу). найти: а) произведение. б) среднее арифметическое всех нечетных элементов массива. в) максимальный элемент массива. выполняем в одной программе.

183

491

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

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

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.