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

Question

Информатика

Флавия

6 октября, 22:48

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

+5

Ответы (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.