Vetores

vetores FIXAÇÃO DE CONTEÚDO – PROF. AMAURI JR – ESTRUTURAS DE DADOS

VETOR

d) Faça um algoritmo igual a este que receba, via teclado, um vetor A (de inteiro) de tamanho 20 e um vetor B (de inteiro) de tamanho 30, e apresente-os na tela.
PROGRAM VETOR_AB;

var A : ARRAY[1..20] OF INTEGER; B : ARRAY[1..30] OF INTEGER; I : INTEGER ;
BEGIN
FOR I := 1 TO 20 DO BEGIN WRITELN('Digite o ', I ,'o. VALOR: '); READLN(A[I]); END; FOR I := 1 TO 30 DO BEGIN WRITELN('Digite o ', I ,'o. VALOR: '); READLN(B[I]); END; FOR I := 1 TO 20 DO WRITELN(A[I]); FOR I := 1 TO 30 DO WRITELN(B[I]);
END.
E) Faça um algoritmo igual a este que receba, via teclado, um vetor A (de inteiro) de tamanho 40 e um vetor B (de inteiro) de tamanho 60, concatene num vetor C, e apresente na tela o vetor C . PROGRAM CONCATVETOR;

var A : ARRAY[1..40] OF INTEGER; B : ARRAY[1..60] OF INTEGER; C : ARRAY[1..100] OF INTEGER; I : INTEGER ;
BEGIN
FOR I := 1 TO 40 DO BEGIN WRITELN('Digite o ', I ,'o. VALOR: '); READLN(A[I]); END; FOR I := 1 TO 60 DO BEGIN WRITELN('Digite o ', I ,'o. VALOR: '); READLN(B[I]); END; FOR I:= 1 TO 100 DO IF I a[J]) then begin x := a[I]; a[I] := a[J]; a[J] := X; end; for I := 1 to 20 do writeln('Nome: ' ,I, ' --> ', a[I]); end.

e) Faça um algoritmo igual a este que receba, via teclado, um vetor A (de inteiro) de tamanho 20 e um vetor B (de inteiro) de tamanho 30, ordene cada vetor e apresente-os na tela ordenados. Exercício_e; var
A: array[1..20] of integer;
B: array[1..30] of integer;
I, j: integer;
X: string;
Begin
For i:= 1 to 20 do
Begin