Программа: replit.com. Усовершенствуйте игру, созданную на занятии. Добавьте
цикл, в котором случайным образом будет генерироваться
событие и выводиться в консоль.
Возможные события:
■ Входим в особую зону, где происходит рождение звезд.
■ Приближаемся к Галактике Андромеды.
■ Внимание! Летит астероид. Предпримите меры!
■ Обнаружены космические пираты!
Пользователь по-прежнему может сделать выбор и, в зависимости от того, что он нажмет, необходимо вывести ответ.
Если event == 'Обнаружены космические пираты!' and
select == 'Выполнить защиту', то выводится изображение Грута с планеты Х и сообщение на ваше усмотрение.

Компьютер библиотекарь обычному человеку, который пришел в библиотеку, найти нужную ему книгу из списка книг всей большой библиотеки. Человек просто вбивает название нужной ему книги и компьютер быстро находит данную книгу и говорит, где она находиться. Так же и с работников самой библиотеки, если они не могут найти книгу для своего клиента, то они смотрят, есть ли данная книга в библиотеке, и где она находиться. Это намного упрощает работу библиотекаря! Ведь не надо бегать по всей библиотеке и запоминать, где находиться книга и есть ли она вообще!

program z1;

var a:array [1..20] of integer;

i,s,k:integer;

begin

randomize;

s:=0;

k:=0;

write('Массив: ');

for i:=1 to 20 do

begin

a[i]:=random(90)+10;

if a[i] mod 2 <> 0 then

begin

s:=s+a[i];

k:=k+1

end;

write(a[i],'  ')

end;

writeln;

writeln('Среднее арифметическое нечётных элементов: ',s/k:0:1)

end.

Объяснение:

Задаём значение элемента с random

Проверяем значение элемента на нечётность, если условие истинно, то считаем сумму и количество элементов

Выводим  значение элемента на экран

Выводим среднее арифметическое (результат деления суммы на количество) нечётных элементов