program Uno;
type
maestroo=RECORD
edad:integer;
nacio:string;
peso:integer;
end;
vec=array[1..100] of maestroo;
vecc=array[1..100] of integer;
veccc=array[1..100]of integer;
var
maestro:vec;
Vector2:vecc;
Vector3:veccc;
Procedure Carga (var vector:vec);
Var
i:integer;
Begin
i:=1;
writeln('///PROCESO DE CARGA DE USUARIOS///');
While (vector[i].edad <> 99) and (i <=50) do
begin
write('Ingrese la edad: ');
readln(vector[i].edad);
writeln(' ');
if(vector[i].edad <> 99) then
begin
write('ingrese nacionalidad:');
readln(vector[i].nacio);
write('Ingrese el peso: ');
readln(vector[i].peso);
i:=i+1;
end;
end;
End;
procedure analisar (var vector:vec; var vector2:vecc; var vector3:veccc);
var
i:integer;
k:integer;
j:integer;
begin
j:=1;
i:=1;
k:=1;
writeln('Ingrese la Nacionalidad Solicitada:');
readln(vector[i].nacio);
while(vector[i].edad<>99) do
begin
begin
if(vector[i].edad < 30) and (vector[i].peso < 85) then
if (vector[i].nacio = vector[i].nacio ) then
begin
vector2[k]:=vector[i].edad;
vector3[j]:=vector[i].peso;
end;
i:=i+1;
end;
end;
end;
uses crt;
const
MAX = 100;
type
maestroo=RECORD
edad:integer;
nacio:string;
peso:integer;
end;
var
registro:array[1..MAX] of maestroo;
n,i:integer;
nacionalidad:string;
begin
clrscr;
writeln('Solo se pueden guardar hasta ',MAX,' personas'); writeln;
write('Cuantas personas desea ingresar: ');
readln(n);
if n > MAX then
writeln('Lo siento, la capacidad es para ',MAX,' personas')
else begin
for i:=1 to n do begin
write('Edad de la persona: ');
readln(registro[i].edad);
write('Nacionalidad: ');
readln(registro[i].nacio);
write('Peso en Kg: ');
readln(registro[i].peso);
end;
end;
{Pedir una nacionalidad y mostrar las personas}
{mayores de 30 anios y con 85 kg de peso}
writeln; write('Ingrese nacionalidad de buscar: ');
readln(nacionalidad);
for i:=1 to n do begin
if registro[i].nacio = nacionalidad then begin
if (registro[i].edad > 30) and (registro[i].peso = 85) then begin
writeln('Peso: ',registro[i].peso);
writeln('edad: ',registro[i].edad);
writeln('Nacionalidad: ',registro[i].nacio);
end;
end;
end;
end.