Цепочки символов (строки) создаются по следующему принципу. Строки имеют порядковый номер (1). Первая строка начинается с цифры 0, за которой следует буква, чей порядковый номер в алфавите соответствует значению i + 1. В следующих строках дважды переписывается предыдущая строка и справа приписывается очередная буква латинского алфавита с порядковым номером i + 1. (0) 0А
(1) 0А0АВ
(2) 0А0АВ0А0АВС
(3) 0А0АВ0А0АВС0А0АВ0А0АВСD
Буквы латинского алфавита: А, В, С, D, Е, F, G, Н, I, J, К, L, М, N, О, Р, Q, R, S, Т, U, V, W, X, Y, Z.
Последней в седьмой строке будет стоять буква:
1) С
2) G
3) F
4) H
const n=100;
var ar:array of array of integer;
ars:array of array of string;
i:integer;
procedure complection(var ar:array of array of integer;var ars:array of array of string);
var
i,j:integer;
begin;
for i:=1 to n do
begin;
for j:=1 to n do
begin;
ar[i,j]:=random(9);
str(ar[i,j],ars[i,j]);
end;
end;
end;
procedure burning(ars:array of array of string);
var
i,j:integer;
t:text;
begin;
assign(t,'text.txt');
rewrite(t);
for i:=1 to n do
begin;
writeln(t,' ');
for j:=1 to n do
write(t,ars[i,j],' ');
end;
end;
begin;
randomize;
setlength(ar,n+1);
setlength(ars,n+1);
for i:=1 to n do
begin;
setlength(ar[i],n+1);
setlength(ars[i],n+1);
end;
complection(ar,ars);
burning(ars);
end.