👤
a fost răspuns

ELABORATI O PROCEDURA CARE CALCULEAZA MINIMUL SI MAXIMUL DINTRE 4 NUMERE INTREGI A , B , C SI D
ROOGGG MULT , DAU COROANA

Răspuns :

procedure minimum(a,b,c,d:integer; var x:integer);
begin
x:=a;
if (b<x) then x:=b;
if (c<x) then x:=c;
if (d<x) then x:=d;
end;

procedure maximum(a,b,c,d:integer; var y:integer);
begin
y:=a;
if (y<b) then y:=b;
if (y<c) then y:=c;
if (y<d) then y:=d;
end;

Alte intrebari