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