Паскаль, файлы

[Vladimir_S]

Помогите пожалуйста сделать, срочно надо.

Ладно, сейчас попробую.

 

[hamchuk250894]

Огромное спасибо заранее

 

[Vladimir_S]

Огромное спасибо заранее

Вот, держите. Не забудьте, если надо, поправить имя файла и путь к нему. И передайте преподавателю, что есть мнение, что он (препод) - тайный половой извращенец.

Const
 m1=7;
 n1=5;
Var
 MassivNN:Array[1..m1,1..n1] of Integer;
 v_min,v_max,Dummy,Min,Sum,Max:Integer;
 i,j,k,m,n,Imin,Jmax:byte;
 mn:Word;
 f:Text;

Begin
 Assign(f,'D:\xxx.txt');
 Rewrite(f);
 Randomize;
 Write('v_min= ');
 Readln(v_min);
 Write('v_max= ');
 Readln(v_max);
 for i:=1 to m1 do
  begin
   for j:=1 to n1 do
    begin
     MassivNN[i,j]:=v_min+Random(v_max-v_min);
     write(MassivNN[i,j]:4);
     write(f,MassivNN[i,j]:4);
    end;
   writeln;
   If i<m1 then writeln(f);
  end;
 Close(f);
 Writeln;
 Reset(f);
 n:=0;
 Repeat
  read(f,Dummy);
  Inc(n);
 Until EoLn(f);
 Reset(f);
 mn:=0;
 Repeat
  If Not(Eof(f)) then
   begin
    read(f,Dummy);
    Inc(mn);
   end;
 Until EoF(f);
 m:=mn div n;
 Reset(f);
 Min:=v_max*n;
 For i:=1 to m do
  begin
   Sum:=0;
   For j:=1 to n do
    begin
     read(f,Dummy);
     Sum:=Sum+Dummy;
    end;
   If Sum<Min then
    begin
     Min:=Sum;
     Imin:=i;
    end;
   Readln(f);
  end;
 Max:=v_min;
 For j:=1 to n do
  begin
   Reset(f);
   Sum:=0;
   For i:=1 to m do
    begin
     for k:=1 to j do read(f,Dummy);
     Sum:=Sum+Dummy;
     Readln(f);
    end;
   If Sum>Max then
    begin
     Max:=Sum;
     Jmax:=j;
    end;
  end;
 Writeln('Line (',Imin,') with minimal sum: ');
 Reset(f);
 For i:=1 to Imin-1 do Readln(f);
 For j:=1 to n do
  begin
   read(f,Dummy);
   write(Dummy:4);
  end;
 Writeln;
 Writeln;
 Writeln('Column (',Jmax,') with maximal sum:');
 Reset(f);
 For i:=1 to m do
  begin
   for j:=1 to Jmax do read(f,Dummy);
   write(Dummy:4);
   readln(f);
  end;
 Close(f);
 Readln
End.

 

[hamchuk250894]

Хах, хорошо))) спасибо ещё раз)