Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  4+44
Language: C/C++
Code:
Program P18;
uses crt;
var a,b,c,d, max, min : real;
procedure maxsimum;
Brgin
if (a>b) and (a>c) and (a>d) Then max:=a else
if (b>a) and (b>c) and (b>d) Then max:=b else
if (c>a) and (c>b) and (c>d) Then max:=c else 
if (d>a) and (d>b) and (d>c) Then max:=d else      
end;
procedure minimum;
Begin
if (a<b) and (a<c) and (a<d) Then min:=a else
if (b<a) and (b<c) and (b<d) Then min:=b else
if (c<a) and (c<b) and (c<d) Then min:=c else 
if (d<a) and (d<b) and (d<c) Then min:=d else 
begin 
clrscr
writeln(`Vedite cetiri cesla:`);
writeln(`a=`); readln (a);
writeln(`b=`); readln (b);
writeln(`c=`); readln (c);
writeln(`d=`); readln (d);
maxsimum;
writeln(`max=`,max);
writeln(`min=`,min);
readln 
end.
Comments: