Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  lol
Language: PASCAL
Code:
Program Total_km;     
Var km: array [1..5] of real;
    total: real;
    a: integer;
Begin
  total := 0;
  Writeln('Digite a distância percorrida (km) em cada         uma das cinco viagens realizadas');
  For a := 1 To 5 Do
    Begin
       Write('Viagem', a,' = ');
       Readln(km[a]);
       total := total + km[a];
    End;
   Writeln('O total de Km percorridos nas cincos viagens é', total);
   Km[4] := 100;
   total := 0;
   For a := 1 To 5 Do
     Begin
        Writeln('Km[', a, '] = ', Km[a]);
        total := total + Km[a];
     End;
    Writeln('O total de Km percorridos nas cinco viagens é', total);
End.

          
Comments: