program z705;
uses crt;
var a:array[1..8] of integer;
b:array[1..5] of integer;
s1,s2,s:real;i:integer;
BEGIN
clrscr;
randomize;s1:=0;
for i:=1 to 8 do
a[i]:=random(50);writeln('massiv a ');
for i:=1 to 8 do begin
writeln(a[i]:3);
s1:=(s1+a[i]); end;
s1:=s1/8;
writeln(s1:5:2);readln;
s2:=0;
for i:=1 to 5 do
b[i]:=random(50);writeln('massiv b ');
for i:=1 to 5 do begin writeln(b[i]:3);
s2:=(s2+a[i]);end;
s2:=s2/5;
writeln(s2:5:2);readln;
END.