Baixe o app para aproveitar ainda mais
Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original
Program invseq; {by: Matheus Silva} const max = 10; min = 1; type seq = array[min..max] of integer; var i : integer; var vet: seq; Procedure inverter(var s:seq); var temp: integer; x,y: real; begin for i:= min to max div 2 do begin temp:= s[i]; s[i]:= s[max-i+min]; s[max-i+min]:= temp end; end; Begin writeln('Digite uma sequencia de 10 numeros inteiros'); for i:=min to max do readln (vet[i]); for i:=min to max do begin write(vet[i]); write(' ') end; inverter(vet); writeln;writeln; for i:=min to max do begin write(vet[i]); write(' ') end; End.
Compartilhar