Что нужно добавить,чтобы работало правильно 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 ...
Что нужно добавить,чтобы работало правильно
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.
здесь при вводе одинаковых чисел минимальных или максимальных не выводится результат. ЧТо изменить ?
Гость
Ответ(ы) на вопрос:
Гость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 bmax then max:=c;if cmax then max:=d;if dmax then max:=e;if e
Не нашли ответ?
Похожие вопросы