Камрад
|
Ладно. Если кому интересно вот исходник. Как у нас говорится только больше мучился, на самом то деле фигня.
program lab8;
uses wincrt;
const n=5;
var
A:integer;
i,j,z,b:integer;
m:file of integer;
f:text;
begin
randomize;
assign(m,'C:\111.ddd'); ASSIGN(f,'c:\111.TXT');
REWRITE (F);
rewrite(m);
For i:=1 to N do begin
For j:=1 to N do
begin
A:= random(100);
A:=A-50;
write(A:4);
write(m,A);
WRITE (F,A:6);
end; writeln (f);
end;close(m);
reset(m); writeln (f);
for i:=1 to n do
for j:=1 to n do
begin
read (m,a);
if i=j then begin
if A<0 then write (f,a);
writeln (f);
end;
end;
close(M);
reset(M);
z:=0; writeln (f);
for i:=1 to n do begin
for j:=1 to n do begin
read (m,a);
if i=j then begin
if A<0 then A:=0;
write (f,a:6);
end
else begin
write(f,A:6);
if a>0 then z:=z+1;
end;
end;
writeln (f);
end;
writeln (f);
writeln (F,z);
close(M);
close(f);
end.
|