Дан массив из 15-ти элементов. вывести номера элементов больше среднего арифметического.

144

461

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

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

ARINA55T5

Информатика

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

Const n=15; var a: array[1..n] of integer; i,s: integer; sr: real; begin randomize; writeln('массив: '); for i: =1 to n do begin a[i]: =random(21); write(a[i]: 3); end; writeln; s: =0; for i: =1 to n do s: =s+a[i]; sr: =s/n; writeln('среднее арифметическое = ',sr: 6: 2); writeln('номера элементов, больших среднего арифметического: '); for i: =1 to n do if a[i]> sr then write(i: 3); writeln; end. пример: массив: 9 19 14 8 7 10 5 10 6 14 15 2 11 17 13 среднее арифметическое = 10.67 номера элементов, больших среднего арифметического: 2 3 10 11 13 14 15