Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  rsgdsegsdg
Language: PASCAL
Code:
program HelloWorld;
var km: array [1..5] of integer;
  total    : integer;
  a: integer;
begin
  total := 0;
  writeln('Digite a distancia percorrida em (km) nas cinco viagens);
For a := 1 To 5 Do
  Begin
writeln ('Viagem',a, ' = ');
Readlin(km[a]);
total := total  km[a];
end;
Writeln('O total e de , 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 e de , total);
End.
          
Comments: