Exercício Vetor Pascal

1. Faça um programa que leia um vetor de 10 valores inteiros e imprima o maior e o menor valor lido.

1) Program A ;

Var

vet: array[1..10]of integer;

i: integer;

max, min: integer;

Begin

For i:= 1 to 10 do

Begin

Writeln('Digite um valor ');

Readln(vet[i]);

End;

begin

max:= vet[1];

begin

for i:= 1 to 9 do

if max< vet[1+i] then

max:= vet[1+i];

end;

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

end;

begin

min:=vet[1];

for i:= 1 to 9 do

if min> vet[1+i] then

min:= vet[1+i];

end;

Writeln('O menor valor é: ', min);

End.

2. Faça um programa que leia dois vetores de 5 valores inteiros, copie e imprima os valores dos dois vetores lidos intercalados em um terceiro vetor. Exemplo:

VET1 3 5 7 9 3

VET2 9 2 1 7 4

VET3 será VET1 intercalado com VET2 = 3 9 5 2 7 1 9 7 3 4

Program B;

Var

vet1, vet2: array [1..5] of integer;

vet3: array [1..10] of integer;

i: integer;

Begin

writeln(‘Digite os valores do 1º vetor: ');

For i:=1 to 5 do

Begin

readln(vet1[i]);

vet3[2*i-1]:=vet1[i];

end;

writeln(‘ Digite os valores do 2º vetor: ');

For i:=1 to 5 do

Begin

readln(vet2[i]);

vet3[2*i]:=vet2[i];

end;

writeln('O vetor resultante ‚: ');

For i:=1 to 10 do

Begin

writeln(vet3[i]);

end;

readln;

end.

3. Faça um programa que leia uma matriz 2x3 de números inteiros e mostre:

A soma dos elementos da linha 1

A soma dos elementos da coluna 3

Program C;

Var M: array [1..2,1..3] of integer;

i, j, somalinha, somacoluna: integer;

Begin

somalinha:=0;

somacoluna:=0;

writeln(‘Digite os valores da matriz,primeiro a linha:');

For i:=1 to 2 do

For j:=1 to 3 do