Решите задачу 1. В таблице приведены запросы и количество страниц, которые
нашел поисковый сервер по этим запросам в некотором сегменте
Интернета:
Количество страниц
Запрос
(тыс.)
фрегат & эсминец
500
фрегат
2000
эсминец
2500
Сколько страниц (в тысячах) будет найдено по запросу
фрегат | эсминец?
Страница 4 из 17
+​

//Видимо, это одна задача, так как "изменения" во второй не указаны
//Pascal ABC.NET v3.1 сборка 1172

Const
 n=20;

Var
 ar:array[1..n] of integer;
 i:integer;
begin
 randomize;
 writeln('First array:');
  for i:=1 to n do
   begin
    ar[i]:=random(10)-3;
    write(ar[i]:4);
    if ar[i]>0 then ar[i]:=ar[i]*2 else ar[i]:=0;
   end;
 writeln;
 writeln('Final array:');
  for i:=1 to n do
   write(ar[i]:4);
end.

Пример работы программы:
First array:   2  -3   5   6  -3  -3   1  -2  -3   1   3  -3   4  -3   1  -1   6   6   2   3
Final array:   4   0  10  12   0   0   2   0   0   2   6   0   8   0   2   0  12  12   4   6

Автор рассказа - Виктор Юзефович Драгунский (1913 - 1972), название рассказа - "Когда я был маленьким".

Главный герой рассказа в детстве плохо пережёвывал пищу и, чтобы поддержать мальчика, во время еды его мама рассказывала сказки. Одной из таких сказок была "Красная Шапочка". Во время рассказа мама напоминала ребёнку хорошенько жевать. После завершения сказки, когда по сюжету охотники разрезали брюхо волку и из него вылезли невредимыми Красная Шапочка и её бабушка, малыш заметил: "Не прожевал, значит, волк-то!" - что противоречило маминым призывам пережёвывать и поэтому звучало особенно забавно.