1. Нарисуйте блок-схему следующего алгоритма: 1) Пользователь вводит размер целочисленного массива; 2) Программа выделяет память под данный массив; 3) В цикле инициализируются значения всех элементов массива, причем для элементов с нечетным индексом организуется ввод значений пользователем, а для элементов с четным индексом значения задаются случайным образом; 4) Полученный массив сортируется по возрастанию; 5) Результат сортировки записывается в файл с созданием блок-схем. С меня
var tenge,bilet:integer;
begin
tenge:=1000;
readln(bilet);
if bilet=tenge then
writeln(' вы можете купить билет');
if bilet>tenge then
writeln(' вам придется смотреть фильм в следующий раз');
if bilet<tenge then
writeln(' вы можете купить напиток и билет');
end.
всего 23 символа (пробел тоже считается за символ)
получаем 23*2=46 байт