как в паскаль абс заполнить массив из строк строками из текстового файла?(txt)
Ответы на вопрос
Ответил fedorovsss
0
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.
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.
Ответил pavel185
0
спасибо большое, вот хотел сделать черепашку, где код будет находиться в текстовом документе
Ответил pavel185
0
ну или что то в этом роде
Новые вопросы