Exercício 09 For - Pascal

9) Construa um algoritmo que apresente o peso total que será carregado por um caminhão. Sabe-se
que esse caminhão carrega 25 caixas, com pesos diferentes. Será entrada do programa o peso (P) de
cada uma das caixas.

program for09;
uses crt;
var 
i : integer;
peso,p:real;
BEGIN
    for i := 1 to 5 do
        Begin
            Write(i,' Informe Peso da Caixa: ');
            readln(p);
                peso:=peso+p;
        End;
    Writeln('Peso Total: ',peso:0:3);                        
END.

Categories: Pascal , Programação