Ответы на вопрос:
Считаем, что сначала вводится количество студентов, потом список студентов (по одному в строчке), потом фамилия нужного студента var ss: string; s: array [1..100] of string; n, i, j: integer; begin readln(n); for i : = 1 to n do readln(s[i]); for i : = 1 to n -1 do for j : = 1 to n - 1 do if s[j] > s[j + 1] then begin ss : = s[j]; s[j] : = s[j + 1]; s[j + 1] : = ss; end; readln(ss); j : = 0; for i : = 1 to n do if s[i] = ss then j : = i; if j = 0 then writeln('no') else writeln('yes ', j); end.
Популярно: Информатика
-
AnnaVlasova0926.01.2022 05:34
-
Atiko8811.12.2021 22:05
-
mediw117.07.2020 23:28
-
Yyyyyyshdvjfc17.04.2022 06:45
-
Сергей008131.05.2021 22:40
-
1602qaz25.09.2020 12:57
-
пандапандапанда25.03.2021 14:39
-
Всеникизаняты1112.10.2020 15:09
-
reopla31.07.2022 23:56
-
Василиска5517.01.2020 10:03