как читать с файла Опции

[maksimla]

как вот это прочитать правильно с файла
вот первые две цывры могу прочитать первая цыфра идет для того чтобы узнать сколько в строчке будет цыфр врорая для того чтобы длину определить на следущий строчке идет первые три цыфры которые надо сравнивать с остальными как мне это все хорошо прочитать все цыфры
3 6
7 4 4
1 8 2
5 5 5
3 2 1
7 4 5
1 1 7
6 3 2

[maksimla]

получилось там чют чють но я признаюсь что у меня небыло двоичного массива некогда

 program staciakampis;
type mas= array [1..100,1..100] of integer;
var n,i,c,j,z,k: integer;
pradDuom,rezult: text;
a:mas;
begin
assign (pradDuom, 'duom.TXT');
assign (rezult, 'rez.TXT');
reset (pradDuom);
rewrite (rezult);
read (pradDuom, n,c);
c:=c+1 ;
for j := 1 to c do
begin
 for i := 1 to n do
  begin
   read (pradDuom,a[j,i] );
  end;
end;
for j:=1 to c do
for i:= 1 to n do
for z:=i+1 to n do
if a[j,i]>a[j,z] then
begin
k:=a[j,i];
a[j,i]:=a[j,z];
a[j,z]:=k;
{writeln(a[j,i]:9);
writeln(a[j,z]); }
end;
for j:=1 to c do
for i:=1 to n do
writeln(a[j,i]);
 close(pradDuom);
 close(rezult);
Readln;
end.

Сообщение отредактировано: maksimla - 31.10.2008 17:22