6. Задан массив из слов. Найдите в нем самое короткое слово, начинающееся с прописной буквы.

Массив констант c будет содрежать различные слова, которые начинаются с прописной или строчной буквы. В переменной prop будут храниться все прописные буквы русского алфавита. Для переменной n_min присвоим позицию первого найденного слова, которое начинается с прописной буквы. Определять букву на регистр будет с помощью выражения  Pos(c[i][1], prop), которое будет возвращать первое вхождение буквы c[i][1] в строке prop. Если выражение вернёт 0 — значит, слово начинается не с прописной буквы. Во втором цикле найдём самое короткое слово, начинающееся на прописную букву.

const c: array [1..6] of string = (
'Велосипед', 'Машина', 'дом', 'Звезда', 'поезд', 'Метла');
var l, n_min: integer;
prop: string;
begin
prop := 'АБВГДЕЁЗЖИЙКЛМНОПРСТУФХЦЧШЩЬЪЭЮЯ';
 n_min := 0;
 for var i := 2 to 6 do
 begin
  if Pos(c[i][1], prop) <> 0 then
  begin
    n_min := i;
  break;
  end;
 end;
 if n_min <> 0 then
 begin
   for var i := 2 to 6 do
   begin
    l := Length(c[i]);
    if (l < Length(c[n_min])) and (Pos(c[i][1], prop) <> 0) then
     n_min := i;
   end;
   writeln(c[n_min]);
 end;
end.
Другие задания