Question

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

Answer 1

Ответ:

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. // Конец программы

Answer 2

Конечно, вот пример решения вашей задачи на языке Pascal:

pascalCopy code
program Atlantis;

var
  height, count, candidates: integer;

begin
  count := 0;
  candidates := 0;
  
  writeln('Введите рост 10 лучших моряков:');
  
  for var i := 1 to 10 do
  begin
    write('Моряк ', i, ': ');
    readln(height);
    
    if height >= 180 then
    begin
      candidates := candidates + 1;
      if height >= 190 then
        count := count + 1;
    end;
  end;
  
  writeln('Количество подходящих претендентов: ', candidates);
  writeln('Количество претендентов выше 190 см: ', count);
end.

В этой программе пользователь вводит рост 10 лучших моряков. Программа затем проверяет, удовлетворяют ли они условиям королевы Атлантиды (рост не ниже 180 см и жена должна быть ниже мужчины на 10 см). Программа выводит общее количество подходящих претендентов и количество тех, кто выше 190 см.