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