1)
var
D: array[1..20] of integer;
i, min: integer;
begin
min := 100; // минимальное значение
for i:=1 to 20 do
begin
D[i] := random(100);
if D[i] < min then
min := D[i];
end;
write(min);
end.
2)
var
B: array[1..30] of integer;
i, sum, count: integer;
srAr: real;
begin
count := 0; // количество чисел больших среднего арифметического
sum := 0; // сумма всех чисел массива
for i := 1 to 30 do
begin
B[i]:= random(30) + 20;
sum := sum + B[i];
end;
srAr := sum / 30; // среднее арифметическое
for i := 1 to 30 do
if B[i] > srAr then
count := count + 1;
write(count);
end.
1, 4
Объяснение:
Рассмотрим путь по такому городу, который проходит по каждой улице не более чем по одному разу.
Простое наблюдение: если какая-то площадь не является началом или концом пути, то из неё должно вести чётное число дорог: по одной дороге в город нужно войти, из другой выйти, и так каждый раз.
Значит, в если в городе есть больше двух городов, из которых ведут нечетное число дорог, то его нельзя обойти, пройдя по каждой улице один раз, так что они точно понравились мистеру Фоксу.
На рисунке черным цветом указано число дорог для каждой площади. Получается, что города 1 и 4 мистеру Фоксу понравились. В городах 2 и 3 можно предложить маршрут, который проходит по каждой улице по одному разу: для 2 это, например, АБВАГВ, для 3 АБВГДЕЁЖВЗДИА - так что эти города понравились мистеру Фоксу не так сильно.
