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.


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

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 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. 

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