Что нужно добавить,чтобы работало правильно program - вопрос №5006218 от Siberia19 29.03.2021 18:30

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)

Siberia19 · Answer

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.

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