где-то так:
| Код |
program my;
uses crt;
var F:File of Integer;
i1,i2:integer;
Temp:Integer;
begin
clrscr;
I1:=0; I2:=0;
AssignFile('C:\file1.int', f);
Reset(f);
While not Eof(f) do
begin
read(f,temp);
if temp<0 then Inc(i1);
end;
CloseFile(f);
AssignFile('C:\file2.int', f);
Reset(f);
While not Eof(f) do
begin
read(f,temp);
if temp<0 then Inc(i2);
end;
CloseFile(f);
if I1>I2 then
wtite('V faile 1 otricatelnih elementov bolshe i ravno = ', I1)
else
wtite('V faile 2 otricatelnih elementov bolshe i ravno = ', I2) ;
readln;
end.
|
|
