READLN (N);

UNTIL N>0;

К:= 0;

FOR I:= 1 TO N DO

BEGIN

WRITELN('BBEДИTE ПОЛ');

READLN (POL);

IF POL = 'MAN' THEN К:= K+1

ELSE BREAK

END;

IF К = 0 THEN WRITELN('MУЖЧИH В НАЧАЛЕ ОЧЕРЕДИ НЕТ')

ELSE WRITELN('B НАЧАЛЕ ОЧЕРЕДИ СТОИТ ', К, 'МУЖЧИН')

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- вводим длину последовательности, задаем начальное значе­ние счетчика К;

- в цикле вводим пол человека;

- если это мужчина, то увеличиваем значение счетчика на единицу;

- в противном случае прерываем цикл оператором BREAK;

- в зависимости от К выводим результат.

Переменные:

К - счетчик;

I - переменная цикла;

N - количество человек в очереди;

POL - пол человека.

Практические задания

1. Вводится последовательность ненулевых чисел; 0 - конец по­следовательности. Посчитать, сколько в ней отрицательных чисел, и сумму положительных чисел.

2. Дана последовательность из N чисел. Определить, является ли она неубывающей.

3. Дана последовательность из N чисел. Определить, сохраняет ли она знак.

4. Вводится последовательность ненулевых чисел; 0 - конец по­следовательности. Определить, сколько в ней пар соседних равных элементов.

5. Дана последовательность из N чисел. Определить сумму трех наибольших чисел.

ТЕМА 4