ANTICHAT - Показать сообщение отдельно - Студентам с лабораторными сюда

4_Mosvit

Цитата:

Код:

ft:text;
begin
clrscr;
assign(ft,'123.pas');

Oшибка: переменная ft у тебя типа text => она не откроется на чтение из 123.pas, только 123.txt (т.к. тип text, а не file).

Считываем массив из файла (тут посложней будет) :

Код:

var mas: array of [1..n,1..m] of integer;
      ft: text;

............................

assign(ft,'123.txt');
reset(ft);

......................

i:=1;
while not seekeof(ft) do
  begin
    j:=1;
    while not seekeoln(ft) do
       begin
          read(ft, mas[i,j]);
          j:=j+1;
       end;
     readln(ft);
     i:=i+1;
  end;

Массив считан в переменную mas...
Дальше работаешь как с обычным массивом чисел...