Algoritmo

Program conjnto_10 ;

var

alt, mai, me, medmu,medtu,somu,sotu :real;

cod, i , contmu,contu:integer;

Begin

somu:=0;

sotu:=0;

contmu:=0 ;

contu:=0;

mai:=0;

me:=1000;

for i:=1 to 10 do

begin

writeln('digite 1-masculino ou 2-feminino');

readln(cod);

writeln(' informe a altura');

readln(alt);

contu:=contu+1;

sotu:=sotu+alt;

if (alt>mai)then

mai:=alt;

if (alt<me) then

me:= alt;

if (cod=2) then

begin

somu:=somu+alt;

contmu:=contmu+1;

end;

end;

medmu:=somu/conTmu;

medtu:=sotu/contu;

Writeln(' MAIOR ALTURA TURMA = ',MAI);

Writeln(' MENOR ALTURA TURMA = ',ME);

Writeln(' MÉDIA DE ALTURA DAS MULHERES = ',MEDMU);

Writeln(' MÉDIA DE ALTURA DA TURMA = ',MEDTU);

End.

//Escrever um programa que leia uma quantidade desconhecida de números e conte quantos deles estão nos seguintes intervalos: (0 a 25), (26 a 50), (51 a 75), (76 a 100). A entrada de dados deve terminar quando for lido um número negativo

PROGRAM INTERVALOS;

Var

valor,interv1,interv2,interv3,interv4:integer;

Begin

interv1:=0;

interv2:=0;

interv3:=0;

interv4:=0;

valor:=0;

while(valor>=0)do

begin

writeln('Digite um valor positivo(neg. para terminar)');

readln(valor);

if valor<=25 then

interv1:=interv1+1

else if valor<=50 then

interv2:=interv2+1

else if valor<=75then

interv3:=interv3+1

else if valor<=100 then

interv4:=interv4+1;

end;

// writeln('Digite um valor positivo(neg. para terminar)');

// read(valor); //

writeln('(0-25):',interv1,',(26-50):',interv2,',(51-75):',interv3,',(76-100):',interv4);

End.

/ Escrever um programa que leia um número N que indica quantos valores devem ser lidos a seguir. Para cada número lido mostre, como resultado, o valor lido e o fatorial deste valor.

3)

PROGRAM FATORIAL;

Var

n,valor,cont,cont2,fatorial:integer;