Por favor me ajudem em um algoritmo com vetor

[Rafaelly]

Fala aí galera!

to com um algoritmo que eu não consigo resolver o problema e esse.

Faça um algoritmo que leia uma frase com 20 caracteres, tirar os espaços extras.

exemplo:

HOJE---FUI--A---AULA

HOJE-FUI-A-AULA

- : corresponde aos espaços

[Branku]

OK .... porém qual é a sua dúvida?

você consegue começar o programa e encalho na hora de tira os espaços?

Ou nem consegue fazer o programa ler a string?

deixe mais claro por favor

Abraço

[Rafaelly]

Pow Branku, fiz uma um coisa mas não sei se é certo,

mas uma coisa eu tenho certeza q não esta deixando

com os espaços.

Esse é o programa q fiz, sei q esta errado

var

f,p:vetor[1..20] caractere;

i,j:inteiro;

Inicio

imprima("Digite uma frase com 20 caracteres: ");

Para i <- 1 ate 20 faça

leia (f);

Fim para;

k<- ' ',

j <- 1;

Para i <- 1 ate 20 faça

se f <> ' ' então

p[j] <- f;

j <- j + 1;

senão

p[j] <- k;

[Triste]

Bom, tente a seguinte ideia.

Leia a frase e armaneze num vetor.

Para i=1 até i=tamanho do vetor FAÇA

        if(vetor[i]==' ' E vetor[i+1]==' ') 
                   volta todos elementos a partir do i+2 uma posição;//implemente isso

Claro que você pode otimizar isso. Por exemplo, contar quantos espaços seguidos existe e voltar todos de uma vez.

Até mais