Что нужно добавить,чтобы работало правильно program minandmax; var a,b,c,d,e:integer; ...

Question

Что нужно добавить,чтобы работало правильно
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.


здесь при вводе одинаковых чисел минимальных или максимальных не выводится результат. ЧТо изменить ?

Comments

Почему не написать >= тогда он должен и это воспринимать, и не будет путать. А то у тебя несколько переменных могут быть равными и тогда он не во всех случаях сможет вывести

---

и как написать?

---

И одного end не хватает, есть главный который заканчивает всю программу, но нет того который будет перекрывать begin

---

В Pascal ABC пишешь?

---

все спасибо исправил

Answer 1

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 bif c>max then max:=c;if cif d>max then max:=d;if dif e>max then max:=e;if ewriteln('Число ',max,' Наибольшее');
writeln('Число ',min,' наименьшее');
end. 

(Собственно вот. Я немного подкорректировала и теперь той проблемы что ты описал нет. Попробуй)