27.12.2012, 16:04 | #23 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Вот, держите. Не забудьте, если надо, поправить имя файла и путь к нему. И передайте преподавателю, что есть мнение, что он (препод) - тайный половой извращенец.
Код:
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. |
27.12.2012, 16:08 | #24 (permalink) |
Member
Регистрация: 09.12.2012
Сообщений: 45
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Хах, хорошо))) спасибо ещё раз)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|