1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

package lercincovalores;
 
import javax.swing.JOptionPane;
 
/**
 *
 * @author Franciele
 */
public class LerCincoValores {
 
    /**
     * @param args the command line arguments
     */
    public static void main(String[] args) {
 
        /*Escrever um algoritmo que lê 5 valores para a, um de cada vez, 
        e conta quantos destes valores são negativos, 
        escrevendo esta informação. */
 
 
        int a;
        int  cont = 0;
 
        for (int i = 0; i < 5; i++) {
 
            System.out.println("Informe o valor:");
            a = Integer.parseInt(JOptionPane.showInputDialog("Informe o valor: "));
 
            if(a < 0){
 
                cont = cont + 1;
 
            }
 
        }
 
        System.out.println("A quantidade de números negativos digitados são: " + cont);
    }
 
}

package lercincovalores; import javax.swing.JOptionPane; /** * * @author Franciele */ public class LerCincoValores { /** * @param args the command line arguments */ public static void main(String[] args) { /*Escrever um algoritmo que lê 5 valores para a, um de cada vez, e conta quantos destes valores são negativos, escrevendo esta informação. */ int a; int cont = 0; for (int i = 0; i < 5; i++) { System.out.println("Informe o valor:"); a = Integer.parseInt(JOptionPane.showInputDialog("Informe o valor: ")); if(a < 0){ cont = cont + 1; } } System.out.println("A quantidade de números negativos digitados são: " + cont); } }

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

program lercinconum;
 
{$mode objfpc}{$H+}
 
uses
  SysUtils;
 
var
  I, A, ContatorNegativo : Integer;
begin
  ContatorNegativo := 0;
 
  for I := 1 to 5 do
  begin
    Write('Informe um valor para a variavel A: ');
    ReadLn(A);
 
    if (A < 0) then
    begin
      ContatorNegativo := ContatorNegativo + 1;
    end;
 
  end;
 
  WriteLn('A quantidade de numeros negativos eh: ' + ContatorNegativo.ToString);
 
  WriteLn('Pressione uma tecla para finalizar o programa.');
  ReadLn;
end.

program lercinconum; {$mode objfpc}{$H+} uses SysUtils; var I, A, ContatorNegativo : Integer; begin ContatorNegativo := 0; for I := 1 to 5 do begin Write('Informe um valor para a variavel A: '); ReadLn(A); if (A < 0) then begin ContatorNegativo := ContatorNegativo + 1; end; end; WriteLn('A quantidade de numeros negativos eh: ' + ContatorNegativo.ToString); WriteLn('Pressione uma tecla para finalizar o programa.'); ReadLn; end.