---

var
  a: array[1..20] of integer;
  k: integer;

begin
  k:=0;
  for var i:=1 to 20 do
    a[i]:=random(3)+14;

  for var i:=1 to 20 do
    if a[i]=16 then
      k:=k+1;

  writeln('Количество 16-летних: ', k);
end.




var
  a: array[1..20] of integer;

begin
  for var i:=1 to 20 do
    a[i]:=random(101)-50;

  writeln('Отрицательные элементы:');
  for var i:=1 to 20 do
    if a[i]<0 then
      write(a[i], ' ');

  writeln;
  writeln('Положительные элементы:');
  for var i:=1 to 20 do
    if a[i]>0 then
      write(a[i], ' ');
end.