А) Здесь просто суммируй два соседних числа и запиши результат в переменную и потом через условие находишь большое число
б) Здесь также, как написано выше, но только найди маленькое число и напиши их порядковые номера (здесь можно через цикл написать порядковые номера)
в) Здесь ещё проще: через условие просто находишь 3 больших числа
Стакан перемещается на третье место, соответственно чашка на четвертое. Теперь известно, что кофе оказалось посередине, т.е. оно в стакане. Справа и слева чай и молоко. Т.е. в кружке либо чай, либо молоко и в чашке тоже. Но известно, что в бутылке минеральная вода, а по соседству с молоком - квас. В чашке - молоко, в кувшине квас, в кружке чай.
<span><span /><span><span>
</span><span /></span></span><span><span /><span><span>
кофе
чай
молоко
квас
минеральная вода
</span><span>бутылка
<span> -</span><span> -</span><span> -</span><span> -</span><span> +</span>
</span><span>кружка
<span> +</span>
</span><span>чашка
<span>+</span>
</span><span>
стакан
<span> +</span><span> -</span><span> -</span><span> -</span><span> -</span>
</span><span>кувшин
<span> +</span>
</span></span></span>
Var
Sr, ves1, ves2 : real;
Begin
Writeln ('Введите вес 1 подруги');
Readln (ves1);
Writeln ('Введите вес 2 подруги');
Readln (ves2);
Sr:=(ves1+ves2)/2;
Writeln ('средний вес двух подруг: ',sr);
end.