Renatoalexandresa

Ok vou estudar outras formas aqui muito obrigado pelas dicas,

Logo mais mandarei o que fiz até agora Mas se puderem me ajudar nessa aqui É para ter duas variáveis strings uma contendo uma frase e outra uma palavra é imprimir na tela o número de vezes que a palavra ocorre na frase Program Pzim ; var frase, palavra: string; quantidade: integer; function contador_palavra(frase, palavra: string): integer; var t,i: integer; p: string; Begin contador_palavra:= 0; t:=lenght(frase); p:=''; for i:= 0 to t-1 do begin if (frase[i] <> char32) then begin p:= p + frase[i]; if (p= palavra) then contador_palavra:= contador_palavra + 1; end else p:=''; end; end; begin Writeln('Digite uma frase: '); Readln(frase); Writeln('Digite uma palavra e quantas vezes ela aparece na frase: '); readln(palavra); quantidade:= contador_palavra(frase,palavra); writeln(quantidade); readln End.

Olá alguém poderia me ajudar nesse exercício sou iniciante. Faça um programa que receba os seguintes dados dos habitantes de uma região: idade, sexo (M/F) e salário, calcule e mostre a) A média dos salários do grupo, A maior e a menor idade do grupo, c) A quantidade de mulheres com salário até R$ 200,00, d) A idade e o sexo da pessoa que possui o menor salário. Finalize a entrada de dados ao digitar uma idade negativa.