Пользователь заполняет одномерный массив длиной 10 слов. расположите эти массивы по алфавиту
282
368
Ответы на вопрос:
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.
Популярно: Информатика
-
mariapogorelova16.02.2023 11:39
-
Кай13115.02.2022 13:00
-
PolinaLass23.09.2020 09:55
-
НастяStar122.03.2020 01:30
-
misik125.08.2020 14:44
-
NeznaykaVshkole16.05.2021 03:31
-
leda519.02.2021 00:30
-
HAHHSSAGSGAGS13.04.2022 03:16
-
enigma7501.10.2021 12:23
-
vasa228307.04.2021 03:37