Exercício 02 Vetor - Pascal

2) Faça um programa em Pascal que carregue um vetor com dez números reais, calcule e mostre a
quantidade de números negativos e a soma dos números positivos desse vetor.

Program Vetor02 ;
var
 cont_neg,i:integer;
 vetor:array[1..10] of real;
 s_posit:real;
 Begin
  for i:= 1 to 10 do
   Begin
    Write('Informe ',i,' Valor: ');
    readln(vetor[i]);
   End;
  for i:= 1 to 10 do 
   Begin
    if (vetor[i] < 0) then
      cont_neg:= cont_neg + 1
    else s_posit:= s_posit + vetor[i];
             
   End;
  Writeln('Qtd Negativos: ',cont_neg); 
  Writeln('Soma Positivos: ',s_posit:0:3);
 End.

Categories: Pascal , Programação