Procedimento Varrer; var i - Rodrigo F - f2ea2472d

Procedimento Varrer;
var
  i: inteiro
  NomesAlunos: String;
inicio
  NomesAlunos := '' // inicializa��o da vari�vel
  Para i:= 0 a 30 fa�a inicio
    Se Notas[i] >= 4 e Notas[i] <= 5.9 entao
      Se NomesAlunos = '' ent�o
         NomesAlunos := Nomes[i]
      Sen�o
         NomesAlunos := NomesAlunos + ', ' +  +  Nomes[i] // recebe ele mesmo e incrementa o nome no array
  fim;
fim;


Lembrando que o preenchimento dos vetores j� existem (ou seja j� est�o feitos)

Passo 7

procedimento Perc;
var
  ComVS, SemVS, i: Integer;
  PercComVS, PercSemVS : Numeric;
inicio
  ComVS := 0;
  SemVS := 0;
  PercComVS := 0;
  PercSemVS := 0;

  Para i:= 1 a 30 fa�a inicio
    Se Notas[i] >= 6.0 entao  // testa quem passou direto
      SemVS := SemVS + 1
    Sen�o Se Notas[i] >= 4.0 e Notas[i] <= 5.9  entao
      ComVS := ComVS + 1;
  fim

  // Depois das var�veis calculadas, ele pegar� o percentual (lembrando que s�o 30 alunos, nesse meu exemplo)
  PercComVS := (ComVS / 30) * 100;
  PercSemVS := (SemVS / 30) * 100;

  Mostra('Percentual Com Verifica��o: '+ PercComVS +'%');
  Mostra('Percentual Sem Verifica��o: '+ PercSemVS +'%');
fim;

fim