Версия для печати темы

Автор: Jill 6.06.2006 15:07

Подскажите, пожалуйста
Потерялась что-то...

Есть внешний файл.
Данные в нем:

-2 5 -1 4
-1 4 -2 5
1 3 -2 6

Как в программе вывести эти данные в виде:

а[1,1]=-2
а[1,2]=5
а[1,3]=-1
b[1]=4
а[2,1]=-1
а[2,2]=4
а[2,3]=-2
b[2]=5
а[3,1]=1
а[3,2]=3
а[3,3]=-2
b[3]=6

Автор: Бродяжник 6.06.2006 15:54

Program primer;

Var
 i,j: byte;
 f: text;
 a: array [1..3,1..3] of integer;
 b: array [1..3] of integer;

Begin
  Assign(f,'primer.dat');
  Reset(f);

  for i:=1 to 3 do
    begin
      for j:=1 to 3 do
          begin
            Read(f,a[i,j]);
            Writeln('a[',i,',',j,']=',a[i,j]);
          end;

      Readln(f,b[i]);
      Writeln('b[',i,']=',b[i]);
    end;
    
  Close(f);  
End.

Автор: Jill 6.06.2006 16:08

ок, пасиба
красиво получается