Вывод и ввод массива в текстовый файл - Pascal ABC
Формулировка задачи:
Требуется написать программу, которая создаст текстовый файл, заполнит его тремя рядам случайных чисел заданной длины, затем считать эти же числа и записать их в двумерный массив и вывести на экран
Заранее благодарю)
Решение задачи: «Вывод и ввод массива в текстовый файл»
textual
Листинг программы
const m=3;
max=25;
var f:text;
n,a,i,j:integer;
begin
randomize;
assign(f,'1.txt');
rewrite(f);
repeat
write('Введите длину строк от 1 до ',max,' n=');
readln(n);
until n in [1..max];
for i:=1 to m do
begin
for j:=1 to n do
begin
a:=random(100);
write(f,a:3);
end;
writeln(f);
end;
reset(f);
for i:=1 to m do
begin
for j:=1 to n do
begin
read(f,a);
write(a:3);
end;
writeln
end;
close(f);
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д