Возьмем 2 города. Из одного в другой выходит 12 дорог. Из второго в первый 12 тех-же самых дорог
Значит дорог всего 2*12/2 = 12 дорог
Возьмем 3 города. Из 1-го во второй уходит 6 дорог, а в третий тоже 6.
Из второго в первый 6 и в третий 6
Из третьего, как уже описано 6 в первый и 6 во второй
12*3 / 2 = 18 дорог в сумме (нарисуй на бумажке и посчитай.)
Видим закономерность.
В числителе изменяется кол-во городов, не изменяется кол-во дорог.
А в знаменателе всегда двойка (можешь попробовать нарисовать схему для 4-х городов. Всё останется как я и описал = 12*4 / 2)
Тогда для 112 городов
112*12 / 2 = 672 дороги.
var a: array [1..10] of integer;
ch, proiz, i: longint;
begin
read(a);
ch := 0;
proiz := 1;
for i := 1 to 10 do
begin
if (a[i] mod 2 = 0) then
ch := ch + a[i];
if (a[i] mod 5 = 0) and (a[i] > 10) then
proiz := proiz * a[i];
end;
writeln(ch);
writeln(a[i]);
end.
Объяснение:
создаем массив из десяти элементов и две переменные: ch(сумма), proiz(произведение).
Далее вводим массив с клавиатуры и в цикле начинаем проверять его элементы:
Если остаток от деления(mod) равен нулю(т.е число делится на два), то мы просто пихаем его в сумму, а если число делится на пять и больше десяти, то мы запихиваем его в произведение(перед циклом proiz = 0, так как 0 * любое число = 0).
После завершения цикла выводим сумму и произведение на экран.
Надеюсь всё понятно)
