Program test;
var mass: array [1..20] of integer;i:integer; veight:integer; sred:real;n:real;
var kran1:array[1..20] of integer;kran2:array[1..20] of integer;
begin
n:=0;
veight:=0;
for i:=1 to 20 do
begin
mass[i]:=random(20);
if mass[i]<10 then
kran1[i]:=mass[i]
else
kran2[i]:=mass[i]
end;
for i:=1 to 20 do
begin
if kran1[i]>0 then
begin
n:=n+1;
veight:=veight+kran1[i];
end;
end;
sred:=veight/n;
write('Êîëè÷åñòâî ãðóçîâ íà 1 êðàíå=');
write(n);
writeln();
write('ñðåä ìàññà íà êðàíå=');
write(sred);
writeln();
n:=0;
veight:=0;
for i:=1 to 20 do
begin
if kran2[i]>0 then
begin
n:=n+1;
veight:=veight+kran2[i];
end;
end;
sred:=veight/n;
write('Êîëè÷åñòâî ãðóçîâ íà 2 êðàíå=');
write(n);
writeln();
write('ñðåä ìàññà íà êðàíå=');
write(sred);

end.