Лабораторная работа: Структуры и алгоритмы обработки данных

WriteLn('');

WriteLn(rus('13 - Поиск элемента по его значению'));

WriteLn('');

WriteLn(rus('14 - Сортировка элементов'));

WriteLn('');

Write(rus('15 - Подсчитать количество идентичных по содержанию '));

WriteLn(rus('элементов с указанным'));

WriteLn('');

WriteLn(rus('0 - Выход'));

WriteLn('');

WriteLn(rus('___________________________________________'));

End;

ProcedureGou( w: WE); {процедура перемещения между

процедурами}

Begin

WriteLn(rus('Нажмите Ввод для продолжения'));

ReadLn(W); //ждем нажатия Enter

Whilew<>'' do {проверяем был ли просто нажат Enter или пользователь что-то ввел. цикл будет работать пока пользователь не нажмет просто Enter, без ввода данных}

begin

WriteLn('');

ifw='' then {если был нажат Enter без ввода данных продолжаем работу процедуры}

else {иначе выдаем сообщение}

WriteLn(rus('Будьте внимательны, нужно просто нажать на ввод!'));

ReadLn(W); //ждемнажатия Enter

end;

WriteLn('');

WriteLn('');

Vopros(w); {процедура вывода списка вариантов дальнейших вариантов работы в ЛОС}

WriteLn;