Что нужно добавить,чтобы работало правильно program minandmax; var a,b,c,d,e: integer; begin writeln ('введите числа'); readln (a,b,c,d,e); if (a> b) and (a> c) and (a> d) and (a> e)and (a: =max)then writeln ('число', a,' наибольшее') else if (b> a) and (b> c) and (b> d) and (b> e)then writeln ('число', b,' наибольшее') else if (c> b) and (c> a) and (c> d) and (c> e)then writeln ('число', c,' наибольшее') else if (d> b) and (d> c) and (d> a) and (d> e)then writeln ('число', d,' наибольшее') else if (e> b) and (e> c) and (e> d) and (e> a)then writeln ('число', e,' наибольшее'); if (a writeln ('число', a,' наименьшее') else if (b writeln ('число', b,' наименьшее') else if (c writeln ('число', c,' наименьшее') else if (d writeln ('число', d,' наименьшее') else if (e writeln ('число', e,' наименьшее') end. здесь при вводе одинаковых чисел минимальных или максимальных не выводится результат. что изменить ?

200

415

Посмотреть ответы 2

Ответы на вопрос:

LightDarkness

Информатика

4,4(6 оценок)

Program minandmax; var d,e,a,b,c,min,max: integer; begin writeln(' введите числа'); read(a,b,c,d,e); min: =a; max: =a; if b> max then max: =b; if b< min then min: =b; if c> max then max: =c; if c< min then min: =c; if d> max then max: =d; if d< min then min: =d; if e> max then max: =e; if e< min then min: =e; writeln('число ',max,' наибольшее'); writeln('число ',min,' наименьшее'); end. (собственно вот. я немного подкорректировала и теперь той проблемы что ты описал нет. попробуй)

linaangel20012

Информатика

4,5(50 оценок)

1.разделим монеты на 3 кучки по 9 монет. положим на чаши весов первую и вторую кучки; по результату этого взвешивания мы точно узнаем, в какой из кучек находится фальшивка (если весы покажут равенство, то она - в третьей кучке). теперь, аналогично, разделим выбранную кучку на три части по три монеты, положим на весы две из этих частей и определим, в какой из частей находится фальшивая монета. наконец, остается из трех монет определить более тяжелую; кладем на чаши весов по 1 монете -фальшивкой является более тяжелая; если же на весах равенство, то фальшивой является третья монета из части. 2. 1). наполняем (4), переливаем в (3), в (4) остался 1л. 2). выливаем из (3), переливаем из (4) в (3), теперь в (3) 1л 3). наполняем (4) и переливаем в (3) до заполнения. т.е. 2л. в (4) останется 4-2=2л.