Assuma que o utilizador digitou os valores 82, -7, -5, 23 e 45

program exercicio1;
uses crt;

var i, a, cont: integer;

begin
clrscr;
cont:=0;
for i:= 1 to 5 do
begin
write('Digite um valor: ');
readln(a);
if a<0 then
cont:=cont+1;
end;
writeln('Existem ',cont,' valores negativos.');
readkey;
end.

1

Respostas

2014-06-26T12:09:28-03:00
Bem, o programa vai verificar dentro do laço for se a variável a é menor que zero, caso seja o número será negativo.. e a variável cont será incrementada em 1.
Assim digitando os 82, -7, -5, 23 e 45.. a cont receberá 2, pois existem dois números negativos.