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

Question

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

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] < 15) then      writeln(a[i]);  kol:= 0; sum:= 0;  for i:= 1 to n do    if a[i] > 16 then    begin      inc(kol);      sum:= sum + a[i];    end;  sr:= sum/kol;  writeln(sr);
end.