Const
 NA=30;
VAR
 NB,NC:BYTE;
 A,B,C:ARRAY[1..NA] of INTEGER;
 i:INTEGER;
BEGIN
 RANDOMIZE;
 NB:=0;
 NC:=0;
 WriteLn('Initial array ("A"):');
 For i:=1 to NA do
  begin
   A[i]:=RANDOM(100)-50;
   Write(A[i]:4);
   IF A[i]>0 then
    begin
     INC(NB);
     B[NB]:=A[i];
    end else
   IF A[i]<0 then
    begin
     INC(NC);
     C[NC]:=A[i];
    end;
  end;
 WriteLn;
 WriteLn('NB= ',NB);
 IF NB>0 then
  For i:=1 to NB do
   Write(B[i]:4);
 WriteLn;
 WriteLn('NC= ',NC);
 IF NC>0 then
  For i:=1 to NC do
   Write(C[i]:4);
 WriteLn;
 ReadLn;
END.

uses crt;
const n=10;
var a: array[1..n] of integer;
     b: array[1..n] of real;
     i,k: integer;
begin
randomize;
for i:=1 to n do
a[i]:=random(100)-40;

for i:=1 to n do begin
b[i]:=0;
for k:=i to n do
b[i]:=b[i]+a[k];
b[i]:=b[i]/(n-i+1);
end;

writeln('a[i]        b[i]');
for i:=1 to n do
writeln(a[i]:4,'    ',b[i]:4:6);

readln;
end.

Const
 N=30;
VAR
 Nactual:BYTE;
 A:ARRAY[1..N] of WORD;
 i:INTEGER;
 Min,Max:WORD;
 Medium:Real;
BEGIN
 RANDOMIZE;
 WriteLn('Initial array:');
 Min:=100;
 Max:=0;
 For i:=1 to N do
  begin
   A[i]:=RANDOM(20)+40;
   Write(A[i]:4);
   If A[i]>Max then Max:=A[i];
   If A[i]<Min then Min:=A[i];
  end;
 WriteLn;
 Nactual:=0;
 Medium:=0;
 For i:=1 to N do
  If (A[i]>Min) and (A[i]<Max) then
   begin
    INC(Nactual);
    Medium:=Medium+A[i];
   end;
 WriteLn('Medium= ',Medium/Nactual:6:3);
 ReadLn;
END.