Что нужно добавить,чтобы работало правильно 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. здесь при вводе одинаковых чисел минимальных или максимальных не выводится результат. что изменить ?

babiron babiron    1   17.07.2019 07:20    0

Ответы
ladavasilenko ladavasilenko  21.09.2020 16:29
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. 

(Собственно вот. Я немного подкорректировала и теперь той проблемы что ты описал нет. Попробуй) 
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика