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. // Конец программы
ответ:тщательно проанализировать реальный объект или процесс;
выделить его наиболее существенные черты и свойства;
определить переменные, т.е. параметры, значения которых влияют на основные черты и свойства объекта;
описать зависимость основных свойств объекта, процесса или системы от значения переменных с логико-математических соотношений (уравнения, равенства, неравенства, логико-математические конструкций);
выделить внутренние связи объекта, процесса или системы с ограничений, уравнений, равенств, неравенств, логико-математических конструкций;
определить внешние связи и описать их с ограничений, уравнений, равенств, неравенств, логико-математических конструкций.
Объяснение:
