Question

Se dau 3 numere întregi. Scrieți un program (pascal) care sa afișeze minimul și maximul din numere.

Answer 1

program numere;var        a,b,c,max,min:integer;begin        max:=0;        min:=9999;        writeln('dati cele 3 nr cu enter intre ele');        readln(a); readln(b); readln(c);        if (a>b) then max:=a                else max:=b;        if (max<c) then max:=c else min:=c;        if (min>a) then min:=a;        if (min>b) then min:=b;        writeln(max,' ',min)end.