Предмет: Информатика,
автор: oltgandreev0220
пользователь заполняет одномерный массив длиной 10 слов. Расположите эти массивы по алфавиту
Ответы
Автор ответа:
0
program pr1;
var a: array[1..10] of string; i, j: integer; s: string;
begin
for i := 1 to 10 do
readLn(a[i]);
for i := 1 to 10 do
for j:=1 to 10 do
if a[j] > a[i] then
begin
s := a[i];
a[i] := a[j];
a[j] := s;
end;
writeLn('отсортированный массив');
for i := 1 to 10 do
writeLn(a[i]);
end.
var a: array[1..10] of string; i, j: integer; s: string;
begin
for i := 1 to 10 do
readLn(a[i]);
for i := 1 to 10 do
for j:=1 to 10 do
if a[j] > a[i] then
begin
s := a[i];
a[i] := a[j];
a[j] := s;
end;
writeLn('отсортированный массив');
for i := 1 to 10 do
writeLn(a[i]);
end.
Похожие вопросы
Предмет: Алгебра,
автор: ppzfpywtpnxw
Предмет: Другие предметы,
автор: aigerush05
Предмет: Геометрия,
автор: sashabogyslav
Предмет: Математика,
автор: Аноним
Предмет: Алгебра,
автор: elenasamosudova