Jump to content
Rarukki0918

Pascalzim-Programa nao esta fazendo soma

Recommended Posts

Estou fazendo um programa no pascalzim que utiliza vetores e ele nao esta fazendo a soma dos valores pedidos na questao ,ele esta exibindo o primeiro valor digitado,a questao esta logo abaixo:

 

 

Faça um programa que leia um vetor de 10 elementos numéricos, calcule e mostre
a quantidade de números negativos e a soma dos números positivos desse vetor.

 

Program dez_numeros_negativos_positivos;
uses crt;
VAR
VETOR: array[1..10] of integer;
CONT,N,P,CAIXA,SOMA:INTEGER;
Begin
  FOR cont:=1 to 10 do
  begin
    textcolor(white);
    write('Digite o numero:');
    READLN(VETOR[CONT]);
  END;
  FOR CONT:=1 TO 10 DO
  BEGIN
    IF VETOR[CONT]<0then
    BEGIN
      N:=N+1;
    END;
  END;
  FOR CONT:=1 TO 10 DO
  BEGIN
    IF VETOR[CONT]>0 then
    BEGIN
      P:=VETOR[CONT]+VETOR[CONT];
      CAIXA:=CAIXA+P;
      SOMA:=SOMA+CAIXA;
    END;
    FOR CONT:=10 TO 10 DO
        BEGIN
         WRITELN('Quantidade de numeros negativos:');
         WRITELN(N);
          WRITELN('Soma de todos os numeros positivos:');
             WRITELN(SOMA);
             END; 
  END;
  READKEY;
  
END.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • By DanielleN
      Boa tarde pessoal!
      Preciso de uma ajuda urgente.O contexto é o seguinte: Acabo de pegar toda uma estrutura pronta de integração, que se conecta ao repo Azure DevOps, cada commit dispara a execução com parâmetros automatizados em Jenkins.
      Tive um problema em um dos step e gostaria de ver os arquivos que estão gerando. Mas meu job está ligado a um master e não possui a opção de gerar os artefacts. Alguém poderia me dizer o que posso fazer? Como listar os arquivos que estão sendo gerados?
      Obrigada 
    • By Mozelli
      Olá pessoal.
       
      Estou com o seguinte problema.
      Foi formatado o computador da empresa sem fazer o backup da base de dados do sistema que consiste em dois arquivos, segundo o proprietário do sistema informou: um arquivo .mdf e outro .ldf.
      Através de programas de recuperação de dados, consegui encontrar esses arquivos.
      Preciso recuperar esses dados. Há alguma maneira de eu abrir esses aquivos e tentar recuperar essa base de dados? Algum programa?
       
      Desde já agradeço.
    • By samueloliveir
      Primeiramente, OBRIGADO pra quem me ajudar. Não estou conseguindo fazer, quem puder me ajudar a fazer me explicando !! Agradeço mt
       
       
      Então, tenho umas 12 tarefas que preciso entregar ate semana que vem, você poderia me ajudar com 2 tarefas que estou com dificuldades ? preciso que me ajude no visualg 
       
      Questão 1
      Crie um algoritmo que leia um número entre 2 e 20 e gere uma tela com a seguinte configuração:
       
      Digite um número:
      4
      Saída do algoritmo:
      1
      12
      123
      1234
      123
      12
      1
    • By brunoaires
      Boa tarde amigos,
      Estou com uma pequena duvida, preciso elaborar um algoritmo que busque a (latitude e longitude) de um dono de cachorro e a posição do respectivo cachorro, e preciso determinar a distância segura de 20 metros, se a distância for ultrapassada terá que emitir um alerta para o dono do cachorro
    • By Claudia França
      prezados como eu altero de loked para unloked do arro para não carregar o java e seguir com o procedimento. 
       
       
      ?Veja nesse link https://drive.google.com/drive/u/0/folders/1h0EbUoz3UOL8j9orWirUAPILt7cg7q-p 
      minhas imagens não estao subindindo aqui, não sei porque, acho que tenho limitação. 
       
       
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.