Как в паскаль абс заполнить массив из строк строками из текстового файла?(txt)
Как в паскаль абс заполнить массив из строк строками из текстового файла?(txt)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы