Algoritmo E Programação Exercicios Resolvidos

5) Ler a idade de 10 pessoas e imprimir quantas são maiores de idade.

#inclide <stdio.h>

main (){

int contador=0, idade, maiores;

printf ("digite a idade");

scanf ("%d", &idade);

for (i=0; i<10; i++){

if (idade>=18){

contador = contador + 1

}

}

maiores = contador;

printf ("%d sao maiores", maiores);

system ("pause");

}

6) Ler 10 numeros e informar o menor e o maior

#include <stdio.h>

main (){

float num, maior, menor;

printf ("numero?"\n);

scanf ("%f", &num);

maior = num;

menor = num;

for (i=0; i<10; i++){

printf ("proximo numero?"\n);

scanf ("%f", &num);

if (num > maior){

maior = num;

}

if (num < menor){

menor = num;

}

}

printf ("o maior numero é %f e o menor é %f", maior, menor);

system ("pause");

12) Ler a idade e o peso de 15 pessoas. Calcular e imprimir as médias de peso das pessoas da mesma faixa etaria e quantas sao de cada faixa etaria. As faixas de 1 a 10 anos, de 11-20, de 21-30 e maiores de 30.

#include <stdio.h>

main (){

int id;

float p, pesoA, pesoB, pesoC, pesoD, MpesoA, MpesoB, MpesoC, MpesoD;

printf ("idade? peso?");

scanf ("%f%f", &id, &p);

for (i=0; i<15; i++){

if (id <=10){

contA++

pesoA = pesoA + p;

}

if (id >11 && id <=20){

contB++

pesoB = pesoB + p;

}

if (id >21 && id <=30){

contC++

pesoC = pesoC + p;

}

if (id >30){

contD++

pesoD = pesoD + p;

}

MpesoA = pesoA/contA;

MpesoB = pesoB/contB;

MpesoC = pesoC/contC;

MpesoD = pesoD/contD;

printf ("%f, %f, %f, %f ---- Média de pesos por faixa etaria ----", MpesoA, MpesoB, MpesoC, MpesoD\n);

printf ("%f, %f, %f, %f ---- Pessoas por faixa etaria ----", contA, contB, contC, contD\n);

}

system ("pause");

}

Faça um programa que leia cinco grupos de quatro valores (A,B,C,D) e mostre-os na ordem lida. Em seguida, organize-os em ordem crescente e decrescente."

Eu fiz o código e vou postar aqui, fiz até a parte da ordem crescente, deu certo, só que o programa não finaliza, por que está acontecendo isso? Alguém pode me ajudar? Segue o código abaixo:

algoritmo "Exercício"

var

A, B, C, D, I, J: inteiro

inicio

escreval("Digite 4 números inteiros:")

leia(A,B,C,D)

para I de 1 ate 5 passo 1 faca

escreval("Grupo",I,"=",A,B,C,D)

fimpara

enquanto (A<B) e (A<C) e (A<D)faca

se (B<C) e (B<D) entao

se (C<D) entao

escreval("A ordem crescente dos números é:",A,B,C,D)

senao

escreval("A ordem crescente dos números é:",A,B,D,C)

fimse

fimse

se (C<B) e (C<D) entao

se (B<D) entao

escreval("A ordem crescente dos números é:",A,C,B,D)

senao

escreval("A ordem crescente dos números é:",A,C,D,B)

fimse

fimse

se (D<B) e (D<C) entao