Дан массив А (16-элементов) необходимо вывести на экран положительные элементы меньше 15, а также найти среднее арифметическое элементов массива, которые больше 16.

Question

Информатика

Виталина

7 июля, 02:32

Дан массив А (16-элементов) необходимо вывести на экран положительные элементы меньше 15, а также найти среднее арифметическое элементов массива, которые больше 16.

+4

Ответы (1)

Знаете ответ на вопрос?

Никодим · Answer 1

Const n = 16;

var a : array [1 ... n] of integer; i, kol, sum : integer; sr : real;

begin

for i: = 1 to n do readln (a[i]) ; for i: = 1 to n do if (a[i] > 0) and (a[i] 16 then begin inc (kol) ; sum: = sum + a[i]; end; sr: = sum/kol; writeln (sr) ;

end.