Как в паскаль абс заполнить массив из строк строками из текстового файла? (txt)

Question

Информатика

Сенюха

30 декабря, 22:12

Как в паскаль абс заполнить массив из строк строками из текстового файла? (txt)

+1

Ответы (1)

Знаете ответ на вопрос?

Ванютя · Answer 1

uses crt;

var a:array[1 ... 100] of string;

n, i:integer;

f:text;

s:string;

begin

clrscr;

assign (f,'input. txt') ;

reset (f) ;

read (f, n) ;

readln (f, s) ;

for i:=1 to n do begin readln (f, a[i]) ;

writeln (a[i]) ;

end;

close (f) ;

readln;

end.