Русские мореплаватели нашли город Атлантиду в самом центре Тихого океана.Город был затоплен только на половину,а в другой половине живут жители.Короле атлантов просит найти ей жениха среди мореплавателей не ниже 180см по их обычаю жена должна быть ниже мужчины на 10см среди 10 лучших моряков.Рост моряков вводить с клавиатуры.Если претендентов будет несколько,то вывести их кол-во.СДЕЛАТЬ В ПАСКАЛЕ

program sailors;

var

 i, quantity: integer;

 mas: array [1..10] of integer;

begin

 quantity := 0;

 for i := 1 to 10 do  

 begin

   read(mas[i]);  

 end;

 for i := 1 to 10 do  

 begin

   if (mas[i] >= 180) then

   begin

     inc(quantity);

     writeln('Моряк: ', i, ' Рост: ', mas[i]);

   end

 end;

 writeln('Количество моряков: ', quantity);

end.

Объяснение:

program sailors;  // Название программы

var

 i, quantity: integer;  // Целочисленные переменная счетчик для массива и переменная для хранения количества моряков, подходящих под условие

 mas: array [1..10] of integer;  // Целочисленный массив с 10-ю элементами

begin  // Начало программы

 quantity := 0;  // Переменная для хранения количества моряков, подходящих под условие, равна нулю

 for i := 1 to 10 do // Идем с первого по десятый индексы

 begin  // Начало цикла

   read(mas[i]); // Считываем значение с клавиатуры

 end;  // Конец цикла

 for i := 1 to 10 do // Идем с первого по десятый индексы

 begin  // Начало цикла

   if (mas[i] >= 180) then  // Если значение элемента массива mas с индексом i ≥ 180, тогда

   begin  // Начало условного оператора

     inc(quantity);  // Значение переменной quantity увеличиваем на единицу

     writeln('Моряк: ', i, ' Рост: ', mas[i]);   // Выводим номер моряка и его рост

   end  // Конец условного оператора

 end;  // Конец цикла

 writeln('Количество моряков: ', quantity);  // Выводим количество моряков, попадающих под условие

end. // Конец программы