Baixe o app para aproveitar ainda mais
Leia os materiais offline, sem usar a internet. Além de vários outros recursos!
ler 12 elementos
Faça como milhares de estudantes: teste grátis o Passei Direto
Esse e outros conteúdos desbloqueados
16 milhões de materiais de várias disciplinas
Impressão de materiais
Agora você pode testar o
Passei Direto grátis
Compartilhar
Prévia do material em texto
program ordem_decrescente;
// Ler 12 elementos de uma matriz tipo vetor, coloca-los em ordem decrescente// e apresentar os elementos ordenados.
varA: array [1..5] of integer;I,J,X: integer;
begin for I := 1 to 5 do writeln('Digite o elemento ',I,' : '); readln(A[I]); end; Begin for I := 1 to 4 do for J : I + 1 to 5 do if ( A[I] < A[J] ) then X := A[I] A[I] := A[J] A[J] := X end; end; end; begin for I := 1 to 5 do writeln('Os elementos em ordem decrescente da matriz A é: ', A[I]) end;end.
Continue navegando
Compartilhar