PROGRAMÇÃO

Exercícios
Tente fazer os exercícios, depois veja uma das soluções mais abaixo na página.
1) Fazer um programa que tem dois vetores do mesmo tamanho (6). O usuário fornecerá os dados do primeiro, e depois deverá ser armazenado e exibido o valor do segundo vetor que é o valor do primeiro vetor vezes a posição do elemento. Por exemplo: vet1:
80 28 35 44 35 16 vet2: 80x1 28x2 35x3 44x4 35x5 16x6 2) Leia 4 números, coloque-os em um vetor e mostre-os na ordem inversa de sua leitura. 3) Fazer um programa que lê 16 valores e armazene numa matriz. O programa deve mostrar esses números em ordem, levando primeiro em consideraçã a coluna e depois a linha. Logo, deve-se mostrar primeiro toda a primeira coluna e depois a segunda coluna. O programa não deve exibir os números que estão na diagonal principal da matriz.
DESAFIO I: Leia 20 números, deposite-os em um vetor e mostre os números pares lidos, e após, os números que estão nas posições pares. DESAFIO II: Faça um programa que execute a leitura de números inteiros para completar uma matriz qualquer, sendo que o número de linhas e o número de colunas da mesma, serão parâmetros por valor, enquanto que a matriz será um parâmetro por referência.

Resolução
1) program ex1; var vet,newvet:array[1..6] of integer; pos:integer; Begin writeln('Digite os valores'); for pos:=1 to 6 do readln(vet[pos]); for pos:=1 to 6 do begin newvet[pos]:=vet[pos]*pos; writeln('Na posicao ',pos,'teremos ',newvet[pos]); end; end.
2) program ex2; var vet:array[1..4] of integer; pos:integer; Begin writeln('Digite os valores'); for pos:=1 to 4 do readln(vet[pos]); writeln('Ordem inversa:'); for pos:=4 downto 1 do writeln(vet[pos]); end. 3) program ex3; var vet:array[1..4,1..4] of integer; posl,posc:integer; Begin writeln('Digite os valores'); for posl:=1 to 4 do for posc:=1 to 4 do