renanvalle

@Mention, Obrigado pela força antecipadamente, mas realmente não estou conseguindo, não é algo na qual tenho facilidade. Não quero a resposta dada, já que sei as regras do site, mas estou tentando e realmente não está saindo. Depois dessa nova orientação, ficou conforme abaixo, mas não está rodando. De qualquer forma, obrigado mesmo! Program Q4;uses crt;Varresp,sex: char;numi,nome: string;id,aux1,aux2,x,y: integer;cont1,cont2: array [1..1000] of integer;Begin clrscr; resp:='s'; while ((resp='S') or (resp='s')) do begin Write('Número de inscrição: ');readln(numi); Write('Nome: ');readln(nome); Write('Sexo (m/f): ');readln(sex); Write('Idade: ');readln(id); If sex='m' then id:=cont1; aux1:=200; If sex='m' then If id<aux1 then x:=id<aux1; If sex='f' then cont2:=cont2; aux2:=0; If sex='f' then If id>aux2 then y:=id>aux2; end; writeln('A maior idade entre os homens é: ',x:3:0,' anos!'); writeln('A menor idade entre as mulheres é: ',y:3:0,' anos!'); End.

Brigadão Math.Pi, Mas preciso dele no looping mesmo, esse é o desafio. Ta difícil. Consegui aplicando isso, mas ele lê só o último valor colocar de acordo com o sexo, conforme abaixo. Program Q4;varresp,sex: char;nome,ni: string;id, x, y, aux1,aux2: integer;Beginclrscr;resp:='s';while ((resp='S') or (resp='s')) dobeginwrite('Número de inscrição: ');readln(ni);write('Nome: ');readln(nome);write('Sexo (m/f): ');readln(sex);write('Idade: ');readln(id);writeln('');write('Digite "s" para continuar: ');readln(resp);writeln('');aux1:=0; aux2:=200;If sex='m' thenif id<aux2 then x:=id<aux2;If sex='f' thenif id>aux1 then y:=id>aux1;end;writeln('A maior idade entre os homens é: ',x:3:0,' anos!');writeln('A menor idade entre as mulheres é: ',y:3:0,' anos!'); End. Não existe uma condicional que nem a MÁXIMO e MÍNIMO que nem no excel?

Bom dia, Preciso resolver a questão abaixo para a faculdade, mas não consigo passar do ponto informado. Será que alguém pode ajudar? Abraços. 4ª Questão: Certa quantidade de acadêmicos participou de um congresso sobre energia nuclear. Confeccionar um programa para pedir o número de inscrição, o nome, o sexo e a idade de cada participante e ao final informar a maior idade entre os homens (sexo=”M”) e a menor idade entre as mulheres (sexo=”F”). Program Q4;varBeginclrscr;resp:='s';while ((resp='S') or (resp='s')) dowrite('Número de inscrição: ');readln(ni);write('Nome: ');readln(nome);write('Sexo (m/f): ');readln(sex);write('Idade: ');readln(id);write('Digite "s" para continuar: ');readln(resp);end;for sex='m' dobeginid:=