Engª Mecânica, Engª Manutenção Industrial e Engª Mecânica de Transportes

Introdução à Computação e Métodos Numéricos

Escreva um programa em Turbo Pascal que permita:

  • Armazenar n elementos inteiros num vector.
  • Mostrar o maior valor.
  • Comparar o 1º elemento com o último, 0 2º com o penúltimo e assim sucessivamente trocando os seus conteúdos se pelo menos um dos números for divisível por 10.

    Program Pesquisa;

    Const n=12;

    Var i, max, m:Integer;

    v:Array[1..n] Of Integer;

    Begin

    {Armazenar os n elementos inteiros num vector}

    For i:=1 To n Do Begin

    End;

    {Mostrar o maior valor}

    max:=v[1];

    For i:=2 To n Do If v[i]>max Then max:=v[i];

    WriteLn('O maior valor é: ',max);

    {Comparar o 1º elemento com o último, ...}

    i:=1;

    While i<=(n Div 2) Do Begin

    i:=i+1;

    End;

    For i:=1 To n Do Write(v[i]:3);

    End.

    Comentários para: Nuno Castro

    1