Если на языке программирования, то на Паскале это будет алгоритм работы с последовательностью вводимых данных. Нет нужды запоминать рост каждого претендента в памяти. На этапе ввода данных можно все подсчитать. Может получиться так:
const n = 30;
k = 170;
var i,r,p:integer;
begin
p:=0;
for i:=1 to n do begin
readln(r);
if r >= k then inc (p);
end;
writeln(p);
end.
Разность между соседними членами чередуется как 1,2 и т.д.
тогда 19,18,16,15,и т.д
program raf105;
var a,n,s,k:integer;
begin
write('Сколько рублей привезли: ');
readln(a);
write('Сколько на предприятии работников: ');
readln(n);
write('Средняя зарплата: ');
readln(s);
write('Остаток в кассе: ');
readln(k);
writeln;
if s <= ((a+k) div n)
then writeln('Этой суммы хватит')
else writeln('Этой суммы не хватит');
end.
Здесь всё можно сделать через копирование части слова и конкатенации (склеивания) частей, например, так:
program z;
var str:string;
begin
str:='ЦВЕТОВОДСТВО';
writeln(copy(str,1,4)); {копировать из строки, начиная с 1 символа, 4 буквы}
writeln(copy(str,5,4)); {копировать из строки, начиная с 5го символа, 4 буквы}
writeln(copy(str,8,1)+copy(str,3,2)+copy(str,9,4));
writeln(copy(str,6,3)+'А');
end.