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. 

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