Вывод и ввод массива в текстовый файл - Pascal ABC

Формулировка задачи:

Требуется написать программу, которая создаст текстовый файл, заполнит его тремя рядам случайных чисел заданной длины, затем считать эти же числа и записать их в двумерный массив и вывести на экран Заранее благодарю)

Код к задаче: «Вывод и ввод массива в текстовый файл - 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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

6   голосов, оценка 3.833 из 5


СДЕЛАЙТЕ РЕПОСТ