Вданом массиве з 20 действительных чисел найти произведение элементов,которые меньше за среднее арифметическое

126

161

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

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

di611

Информатика

4,7(65 оценок)

program a_86betiri; uses crt; const n=20; var a: array[1..n] of real; sum, mt: real; i: integer; begin writeln('*** alphaues is ***'); writeln('*** ok ***'); sum: =0; mt: =1; randomize; for i: =1 to n do begin a[i]: =random(100); sum: =sum+a[i]; end; writeln('элементы массива: '); for i: =1 to n do begin if a[i]< (sum/n) then mt: =mt*a[i]; write (a[i]: 7: 2); end; writeln(); writeln('произведение элементов, меньших, чем среднее арифметическое: ',mt); end.