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

Объявим массив констант c размером в 6 элементов типа string (вы можете объявить и больше), который будет содержать различные слова. В первом цикле найдём номер первого слова, которое заканчивается на букву «а». Во втором цикле будем сравнимать длины слов с длиной найденого слова в предыдущем цикле. При условии, что длина слова c[i] больше длины c[n_max] и слово c[i] заканчивается на букву «а», присваиваем переменной n_max новый номер самого длинного слова, заканчивающегося буквой «а». Перед вторым циклом обязательно ставим проверку if n_max <> 0 then на случай, если в первом цикле не было найдено ни одного слова, заканчивающегося буквой «а».

const c: array [1..6] of string = (
'Велосипед', 'Машина', 'Дом', 'Звезда', 'Поезд', 'Метла');
var l, n_max: integer;
b: string;
begin
 n_max := 0;
 for var i := 2 to 6 do
 begin
  l := Length(c[i]);
  b := Copy(c[i], l, 1);
  if (b = 'а') then
  begin
    n_max := i;
  break;
  end;
 end;
 if n_max <> 0 then
 begin
   for var i := 2 to 6 do
   begin
    l := Length(c[i]);
    b := Copy(c[i], l, 1);
    if (l > Length(c[n_max])) and (b = 'а') then
     n_max := i;
   end;
   writeln(c[n_max]);
 end;
end.
Другие задания