[PASCAL]Calcolare il numero più piccolo

[zacca94]

Esercizio scolastico: Dati 4 numeri inseriti in input, visualizzare quello più piccolo, ricorda che i numeri possono essere pure uguali.

Avevo pensato di fare con degli if... ma quanti ne dovrei fare :/ Altre soluzioni?

[oregon]

Dipende se i 4 numeri sono memorizzati in un vettore ... allora serve un ciclo e una if ...

[zacca94]

Program PIU_PICCOLO;
Uses Crt;
var a,b,c,d:integer;
    f:boolean;

begin
    readln(a,b,c,d);
    
    if a < b then
        if a <> b then
            if a < c then
                if a <> c then
                    if a < d then
                        if a <> d then
                            write('Il 1° numero inserito è il più piccolo');

    if b < a then
        if b <> a then
            if b < c then
                if b <> c then
                    if b < d then
                        if b <> d then
                            write('Il 2° numero inserito è il più piccolo');
    
    if c < a then
        if c <> a then
            if c < b then
                if c <> b then
                    if c < d then
                        if c <> d then
                            write('Il 3° numero inserito è il più piccolo');
                            
    if d < a then
        if d <> a then
            if d < b then
                if d <> b then
                    if d < c then
                        if d <> c then
                            write('Il 4° numero inserito è il più piccolo');
                            
    readln;
end. 

Così va bene?
O si potrebbe migliorare ?

[king64]

Come suggeriva oregon, qualcosa di questo tipo:

var a[1..4] of integer;
var i,max:integer;

begin
	' leggi i valori
	for i:=1 TO 4 do
		readln(a[i]);
	max:=a[1];
	' effettua il confronto
	for i:= 2 TO 4 do
	begin
		if max< a[i] then
			max:=a[i];	
	end;
	Writeln(max);
end.

Saluti