domingo, 30 de janeiro de 2011

Mostra os números digitados

PROGRAM EP12;
USES CRT;
VAR A: ARRAY [1..5] OF INTEGER;
    I, ACUM: INTEGER;
    SOMA: STRING;
BEGIN
CLRSCR;
 FOR I:= 1 TO 5 DO
 BEGIN
   WRITELN ('DIGITE O',I,' NUMERO');
   BEGIN
     READLN (A[I]);
   END;
 END;
 ACUM:= 0;
 FOR I:= 1 TO 5 DO
 BEGIN
   ACUM:= ACUM + A[I];
 END;
 WRITELN ('OS NUMEROS DIGITADOS FORAM:');
 BEGIN
 WRITELN (ACUM);
 END;
 READKEY;
END.

Nenhum comentário:

Postar um comentário