На языке паскал создать одномерный статический массив длиной, заданной константой. дружественный диалог с пользователем. требуется сгруппировать положительные элементы массива в его начале, отрицательные – в конце с сохранением их порядка.

3

Объяснение:

Процедура delete имеет следующий вид: delete([строка], [идекс], [количество]) - т.е. из строки [строка] с позиции [индекс] будет удалено [количество] символов. На твоём примере: пока длина строки s больше 0 с позиции 1 удаляем два символа и выводим на экран единицу. На первой итерации цикла строка "123456" превратится в строку "3456", на второй итерации в "56" и на последней, третей итерации в "". Итого, чтобы длина строки стала 0 потребовалось 3 итерации, т.е. на экран выведется три единицы

Var n: integer; begin; readln(n); case n of 0: writeln('zero'); 1: writeln('one'); 2: writeln('two'); 3: writeln('three'); 4: writeln('five'); 6: writeln('six'); 7: writeln('seven'); 8: writeln('eight'); 9: writeln('nine'); else writeln('some number'); end; end.2.var n: integer; begin; readln(n); case n of 1: writeln('january'); 2: writeln('february'); 3: writeln('march'); 4: writeln('april'); 5: writeln('may'); 6: writeln('june'); 7: writeln('july'); 8: writeln('august'); 9: writeln('september'); 10: writeln('october'); 11: writeln('november'); 12: writeln('december'); else writeln('some number'); end; end.