Var f: text; a,b: array[1..100,1..100] of integer; i,j,k,n,m,s: integer; begin write ('Введите количество строк (n<=100): '); readln (n); write ('Введите количество столбцов (m<=100): '); readln (m); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:= random(19); write (a[i,j]:5)// вывод массива на экран для проверки end; writeln end; assign(f,'array.txt');//Файл создаётся в рабочей папке или нужно указать полный путь rewrite(f); for i:=1 to n do begin for j:=1 to m do write(f,a[i,j]:5); writeln(f,'') end; close(f); writeln; assign(f,'array.txt'); reset(f); i:=1; j:=1; while not seekeof(f) do// Пропускает пробельные символы в конце файл begin while not seekEoln (f) do// Пропускает пробельные символы в конце строки begin read(f,k); b[i,j]:=k; s:=j; j:=j+1 end; i:=i+1; j:=1 end; close(f); for n:=1 to i-1 do begin for m:=1 to s do write(b[n,m]:5); writeln end end.
2 votes Thanks 1
elenaklon
var f: text; a: array[1..100] of integer; i,j,k: integer; begin assign(f,'array1.txt'); reset(f); i:=1; while not eof(f) do begin read(f,k); a[i]:=k; i:=i+1 end; close(f); for j:=1 to i-1 do write (a[j],' ') end.
Aillianna
нужно не считать а записать. или и то и другое
elenaklon
var f: text; a,b: array[1..100,1..100] of integer; i,j,k,n,m,s: integer; begin write ('Введите количество строк (n<=100): '); readln (n); write ('Введите количество столбцов (m<=100): '); readln (m); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:= random(19); write (a[i,j]:5)// вывод массива на экран для проверки end; writeln end;
elenaklon
assign(f,'array.txt');//Файл содаётся в рабочей папке или нужно указать полный путь rewrite(f); for i:=1 to n do begin for j:=1 to m do write(f,a[i,j]:5); writeln(f,'') end; close(f); writeln; assign(f,'array.txt'); reset(f); i:=1; j:=1; while not seekeof(f) do// Пропускает пробельные символы в конце файл begin while not seekEoln (f) do// Пропускает пробельные символы в конце строки begin read(f,k); b[i,j]:=k; s:=j; j:=j+1 end; i:=i+1; j:=1 end; close(f);
elenaklon
for n:=1 to i-1 do begin for m:=1 to s do write(b[n,m]:5); writeln end end.
Answers & Comments
Verified answer
Var f: text;a,b: array[1..100,1..100] of integer;
i,j,k,n,m,s: integer;
begin
write ('Введите количество строк (n<=100): ');
readln (n);
write ('Введите количество столбцов (m<=100): ');
readln (m);
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:= random(19);
write (a[i,j]:5)// вывод массива на экран для проверки
end;
writeln
end;
assign(f,'array.txt');//Файл создаётся в рабочей папке или нужно указать полный путь
rewrite(f);
for i:=1 to n do
begin
for j:=1 to m do
write(f,a[i,j]:5);
writeln(f,'')
end;
close(f);
writeln;
assign(f,'array.txt');
reset(f);
i:=1;
j:=1;
while not seekeof(f) do// Пропускает пробельные символы в конце файл
begin
while not seekEoln (f) do// Пропускает пробельные символы в конце строки
begin
read(f,k);
b[i,j]:=k;
s:=j;
j:=j+1
end;
i:=i+1;
j:=1
end;
close(f);
for n:=1 to i-1 do
begin
for m:=1 to s do
write(b[n,m]:5);
writeln
end
end.
a: array[1..100] of integer;
i,j,k: integer;
begin
assign(f,'array1.txt');
reset(f);
i:=1;
while not eof(f) do
begin
read(f,k);
a[i]:=k;
i:=i+1
end;
close(f);
for j:=1 to i-1 do
write (a[j],' ')
end.
a,b: array[1..100,1..100] of integer;
i,j,k,n,m,s: integer;
begin
write ('Введите количество строк (n<=100): ');
readln (n);
write ('Введите количество столбцов (m<=100): ');
readln (m);
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:= random(19);
write (a[i,j]:5)// вывод массива на экран для проверки
end;
writeln
end;
rewrite(f);
for i:=1 to n do
begin
for j:=1 to m do
write(f,a[i,j]:5);
writeln(f,'')
end;
close(f);
writeln;
assign(f,'array.txt');
reset(f);
i:=1;
j:=1;
while not seekeof(f) do// Пропускает пробельные символы в конце файл
begin
while not seekEoln (f) do// Пропускает пробельные символы в конце строки
begin
read(f,k);
b[i,j]:=k;
s:=j;
j:=j+1
end;
i:=i+1;
j:=1
end;
close(f);
begin
for m:=1 to s do
write(b[n,m]:5);
writeln
end
end.