Tienes la idea general, pero el orden de las asignaciones del primer if
no es el correcto.
También, Como te he dicho en comentarios de la pregunta, considero que nombrar correctamente las variables es importante. La idea general la tienes en tu programa, sospecho que el hecho de tener variables como ´min1´, ´min2´, etc. puede ser la razón por la que te resulte confuso.
Acá te dejo un programa que funciona correctamente, he cambiado los nombres de las variables para mayor claridad (a mi me sirve mucho, y lo hago siempre).
var
I, Codigo, Precio: Integer;
SegundoBaratoCodigo, SegundoBaratoPrecio: Integer;
MasBaratoCodigo, MasBaratoPrecio: Integer;
ContadorMayor16Par: Integer;
const
NUM_PRECIOS = 4;
begin
SegundoBaratoPrecio := MaxInt;
MasBaratoPrecio := MaxInt;
SegundoBaratoCodigo := 0;
MasBaratoCodigo := 0;
ContadorMayor16Par := 0;
for I := 1 to NUM_PRECIOS do
begin
writeln('Codigo: '); readln(Codigo);
writeln('Precio: '); readln(Precio);
if Precio < MasBaratoPrecio then
begin
//Primero pasamos el más barato al SegundoBarato
SegundoBaratoPrecio := MasBaratoPrecio;
SegundoBaratoCodigo := MasBaratoCodigo;
//Ahora asignamos el más barato
MasBaratoPrecio := Precio;
MasBaratoCodigo := Codigo;
end
else if Precio < SegundoBaratoPrecio then
begin
//Simplemente asignamos el SegundoBarato
SegundoBaratoPrecio := Precio;
SegundoBaratoCodigo := Codigo;
end;
if (Precio > 16) and (not Odd(Codigo)) then
Inc(ContadorMayor16Par);
end;
Writeln;
Writeln('2 Articulos mas baratos');
Writeln('Codigo: ', MasBaratoCodigo, ' Precio: ', MasBaratoPrecio);
Writeln('Codigo: ', SegundoBaratoCodigo, ' Precio: ', SegundoBaratoPrecio);
Writeln;
Writeln('Contador de articulos con precio mayor a 16 y codigo par: ', ContadorMayor16Par);
readln;
end.
En el programa, además del cambio de nombre de variables, he hecho uso de constantes, estándar como MaxInt
o declaradas en el código, como NUM_PRECIOS
, que también mejoran la legibilidad del código.