Для того, аби програма згенерувала номер учня-щасливчика зі списку учнів вашого класу (кількість учнів у класі - n), потрібно і програмі записати команду:

random.random(1, n)

random.randrange(1,n)

random.choice(1,n)

random.randint(1, n)

по вертикали

1. Система из текстовых страниц, имеющих перекрёстные ссылки, составленные как по вертикали, так и по горизонтали это?

2. Волна с непрерывно изменяющейся амплитудой и частотой это ?

5. Технические приёмы создания иллюзии движущихся изображений с последовательности неподвижных изображений (кадров) это?

7. Электронная плата, которая позволяет записывать звук, воспроизводить его и создавать программными средствами с микрофона, наушников, динамиков, встроенного синтезатора и другого оборудования это?

8. Технология обработки, структурирования информации и произвольного доступа к её элементам с гиперсвязей это?

10. Деятельность по проектированию эстетических свойств промышленных изделий , а также результат этой деятельности это?

по горизонтали

3. Совокупность движущихся изображений (монтажных кадров), связанных единым сюжетом это ?

4. Часть гипертекстового документа, ссылающаяся на элемент в этом документе , или на другой объект, , расположенный на локальном диске или в компьютерной сети, либо на элементы этого объекта это?

6. Документ или комплект документов, предназначенный для представления чего-либо это?

9. Данные, или содержание, которые представляются одновременно в разных формах: звук, анимированная компьютерная графика, видеоряд это?

11. Преобразование непрерывного сигнала в последовательность чисел это?

12. Метод описания поискового запроса с использованием метасимволов («*» — любая последовательность символов (слово), «?» — любой символ)

Первый вариант:

Var
   A:real;
   k:integer;
Begin
Write('Стоимость одной газеты: ');ReadLn(A);
Write('Количество газет: ');ReadLn(k);
if k <= 50 then WriteLn('Заработок продавца: ',k*A,' руб.')
else WriteLn('Заработок продавца: ',(A*((k-50)*1.2+50)):0:2,' руб.')
End.

Var k:integer;
    S,A:real;
Begin
Write('Стоимость одной газеты: ');ReadLn(A);
Write('Количество газет: ');ReadLn(k);
if k <= 50 then S:=k*A
else S:=A*((k-50)*1.2+50);
WriteLn('Заработок продавца: ',S:0:2,' руб.');
End.

Пример работы программы:

Стоимость одной газеты: 30.15
Количество газет: 200
Заработок продавца: 6934.50 руб.