|
program propuesto;
uses crt;
const
traba=10;
var
edad,ci,nombre,mayedad,sumaedad:string;
sueldo,suelmin:real;
pormin,i:integer;
procedure calculapor(sueldo,suelmin:real);
begin
if sueldo<980 then suelmin:=sueldo;
end;{calculapor}
procedure calculamayor(edad,mayedad:string);
begin
if edad>mayedad then mayedad:=edad;
end;{calculamayor}
begin
clrscr;
for i:=1 to traba do
begin
write('cedula: ');readln(ci);
write('edad: ');readln(edad);
write('sueldo: ');readln(sueldo);
if edad>mayedad then mayedad:=edad;
writeln('la edad mayor es: ',mayedad);
if sueldo<980 then suelmin:=sueldo;
writeln('el porcentaje de sueldos minimos es: ',suelmin:10:2);readln;
end.
end.
|
