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

Question

Информатика

Карп

18 мая, 18:21

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

+1

Ответы (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.