exercicos em visualg

Como não há nem uma resposta em visualg aqui vai a solução do colega adaptada:

obs: so funciona com escolha caso, com Se eu ainda não encontrei, caso eu encontre volto aqui para divulgar

Var

  Nome: caractere

  desc, valor : Real

  sexo: inteiro

Inicio

   Escreva ("Qual o nome do usuario? ")

   Leia (Nome)

   Escreva ("Qual o valor da compra? ")

   Leia (Valor)

   Escreval ("Qual o genero do cliente? ")

   Escreval ( "[1] para feminino")

   Escreval ("[2] para masculino")

   Leia (sexo)

   Escolha sexo

     Caso 1

        desc <- valor -((valor *15)/100)

        Escreval ("O seu desconto e de ", desc)

     Caso 2

        desc <- valor - ((valor * 5)/100)

        Escreval ("O seu desconto e de ", desc)

   FimEscolha

Fimalgoritmo

using System;

public class exercicio72

{

  public static void Main()

  {

    string[] nome = new string[7];

    for (int i = 0; i < 7; i++)

    {

      Console.WriteLine("Escreva um nome: ");

      nome[i] = Console.ReadLine();

    }

  }

}