С помощью датчика случайных чисел заполнить массив alfavit [0..15] прописными латинскими буквами. Затем массив отсортировать в алфавитном порядке
Вопрос посетителя
С помощью датчика случайных чисел заполнить массив alfavit [0..15] прописными латинскими буквами. Затем массив отсортировать в алфавитном порядке
Ответ эксперта
Program Simvol1;
Uses crt;
Var Alfavit: array[1..15] of char;
s: char; i,j: integer;
Begin
ClrScr;
randomize; {Заполнение массива случайными буквами}
Writeln(‘Исходный массив’);
For i:=1 to 15 do
begin
Alfavit[i]:= chr(random(26)+ ord(‘A’));
Write( Alfavit[i]:3)
end;
Writeln;
{Сортировка метод пузырька}
For i:=1 to 15 do
for j:=1 to 15-i do
if Alfavit[j]>Alfavit[j+1] then
begin
S:=Alfavit[j];
Alfavit[j]:=Alfavit[j+1];
Alfavit[j+1]:=s
end;
Writeln(‘Отсортированный массив’);
For i:=1 to 15 do write (Alfavit[i]:3);
Readkey
End.
