uses crt;
const
PASAJEROS = 40;
var
asientome,mayor,menor,asiento,c,i:integer;
edad:array[1..PASAJEROS] of byte;
porc:real;
begin
clrscr;
//llenar array
for i:=1 to PASAJEROS do begin
write('Edad # ',i,': ');
readln(edad[i]);
end;
//imprimir asientos impares
writeln;
writeln('Edad de pasajeros en asientos impares');
for i:=1 to PASAJEROS do begin
if (i mod 2 <> 0) then
write(edad[i],' ');
end;
//numero de asientos personas > 12 anios
writeln;
writeln('número de asientos de aquellos pasajeros cuya edad sea mayor a 12 años');
for i:=1 to PASAJEROS do begin
if (edad[i] > 12) then
write(i,' ');
end;
//porcentaje de pasajeros > 65 anios
writeln;
for i:=1 to PASAJEROS do begin
if (edad[i] > 65) then
inc(c);
end;
porc:=(c * 100) / PASAJEROS;
writeln('Porcentaje de pasajeros > 65 anios ',porc:4:2,'%');
//edad mayor y menor
mayor:=0;
menor:=edad[1];
for i:=1 to PASAJEROS do begin
if edad[i] > mayor then begin
mayor:=edad[i];
asiento:=i;
end;
if edad[i] < menor then begin
menor:=edad[i];
asientome:=i;
end;
end;
writeln;
writeln('El mayor tiene ',mayor,' anios y esta en el asiento # ',asiento);
writeln('El menor tiene ',menor,' anios y esta en el asiento # ',asientome);
end.