- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
program kot;
var r,i,j, z : integer ;
famnom: array[1..11,1..26] of char;
Label lb1, lb2;
begin
Assign(input, 'c:\pascal\kot.txt');
Reset(input);
Assign(output, 'c:\pascal\tok.txt');
Rewrite(output);
for j:=1 to 10 do
for i:=1 to 26 do (*каждому символу присваивается свой номер в массиве*)
begin
read(input,famnom[j,i]);
write(famnom[j,i]); (*исходные данные копируются в файл*)
end;
writeln('');
writeln('');
close(input);
Assign(input, 'c:\pascal\kot.txt');
Reset(input);
begin
lb1 : for j:=1 to 10 do
begin
i:= 16;
while famnom[j,i]=famnom[j+1,i] do
i:=i+1; (*блабла*)
if famnom[j,i]<famnom[j+1,i] then
begin
for i := 1 to 26 do
begin
famnom[11,i]:=famnom[j,i]; (*сравниваются символы короч*)
famnom[j,i]:=famnom[j+1,i];
famnom[j+1,i]:=famnom[11,i];
end;
goto lb1;
end;
end;
end;
for j:=1 to 10 do
for i:= 1 to 26 do
begin
write(famnom[j,i]);
end;
close(input);
close(output);
end.
