Program lab10; 
uses crt; 
type mas=array[1..5,1..5] of integer; 
var f:text; 
a:mas; sred:real; 
s:string; 
i,j,:integer; 
b,c:array[1..5] of real; 
Procedure 1 (var a:mas); 
Var i,j:integer; 
Begin 
randomize; 
for i:=1 to 5 do 
for j:=1 to 5 do 
a[i,j]:=random(27); 
for i:=1 to 5 do 
begin 
for j:=1 to 5 do 
write (a[i,j]:5); 
writeln; 
end; 
begin 
clrscr; 
assign (f,'C:\stud\120891\lab10.txt'); 
1(a); 
For i:=1 to 5 do 
begin 
sred:=a[i,j]; 
for j:1 to 5 do 
begin 
sum:=0; sum:=sum+a[i,1]; 
sred:=sum/5; 
b:=sred; 
end; 
end; 
rewrite(f); 
for i:=1 to 5 do 
write (f, b:5); 
close(f); 
reset(f); 
for i:=1 to 5 do 
read (f,c); 
close(f); 
for i:=1 to 5 do 
write(c); 
repeat until keypressed; 
end; 
end.