Exercício 05 Vetor - Pascal

5) Elabore um algoritmo que leia um vetor A de 30 números inteiros e imprima o maior valor.

Program Vet05 ;
var
 vetor:array[1..30] of integer;
 i,maior:integer;
 Begin
  for i:= 1 to 30 do
   Begin
    Write('Informe ',i,' Valor: ');
    readln(vetor[i]);
   End;
   maior:=vetor[1]; 
  for i:= 1 to 30 do
   Begin
    if vetor[i] > maior then
     maior:=vetor[i];
    end; 
  Writeln('Maior Valor: ',maior); 
  Writeln('           by Marcus Vinicius');
 End.

Categories: Pascal , Programação