всего три числа?
решу с рандомным заполнением...
на паскале:
...
var
a,b,c:integer;
min, max:integer;
begin clrscr;
a:=random(10)+0;
b:=random(10)+0;
c:=random(10)+0;
if (a<b) and (a<c) then
min:=a
else
if (c<a) and (c<b) then
min:=c
min:=b;
if (a>b) and (a>c) then
max:=a
if (c>a) and (c>b) then
max:=c
max:=b;
writeln('Максимальное: ',max);
writeln('Минимальное: ',min);
readkey;
end.
всего три числа?
решу с рандомным заполнением...
на паскале:
...
var
a,b,c:integer;
min, max:integer;
begin clrscr;
a:=random(10)+0;
b:=random(10)+0;
c:=random(10)+0;
if (a<b) and (a<c) then
min:=a
else
if (c<a) and (c<b) then
min:=c
else
min:=b;
if (a>b) and (a>c) then
max:=a
else
if (c>a) and (c>b) then
max:=c
else
max:=b;
writeln('Максимальное: ',max);
writeln('Минимальное: ',min);
readkey;
end.