Ответ(ы) на вопрос:
var a,b,c:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
if a>b
then if ac then writeln(b,' - среднее')
else writeln(c,' - среднее')
else if a>c then writeln(a,' - среднее')
else if b
Не нашли ответ?
Похожие вопросы