Question

Desenvolver um algoritmo utilizando uma estrutura de ARRAY, para conter 10 letras.

1) Inicialmente carregar as 10 letras
2) Mostrar as letras gravadas no ARRAY na ordem crescente
3) Mostrar as letras gravadas no ARRAY na ordem decrescente.

PRECISO DESSE ALGORITMO EM PASCAL

Answer 1

Resposta:

program array_cressente;

const nmax=10;

var

 v: array[1..nmax] of integer;

 i,j,n,posMenor,temp: integer;

begin

 writeln('Digite um inteiro menor ou igual a ' ,nmax, ' :  '); readln(n);

 writeln('Digite ',n,' inteiros separados por espacos');

 for i:=1 to n do read(v[i]);

 for i:=1 to n-1 do begin

  posMenor:=i;

  for j:=i+1 to n do

    if v[j] < v[posMenor] then posMenor := j;

    if i <> posMenor then begin

    temp := v[i];

    v[i] := v[posMenor];

    v[posMenor] := temp;

   end;

 end;

 writeln;

 for i:=1 to n do  write(v[i]:4);

end.

Explicação:

foi oque achei na internet meu professor aceitou assim