intercalar dois arrays (vetores)
Programa feito para ler dois vetores o mostrar na tela a intercalação dos dois, ou seja, item 1 do primeiro, item 1 do segundo, item 2 do primeiro....
Descrição
Programa feito para ler dois vetores o mostrar na tela a intercalação dos dois, ou seja, item 1 do primeiro, item 1 do segundo, item 2 do primeiro....
Program exercicio11;
uses crt;
Type
Vetor = array[1..10] of integer;
Var
Vet1, vet2 : Vetor;
Contador : integer;
Begin
clrscr;
For contador := 1 To 10 do
Begin
Write('Digite o ',contador:2,'§ numero do vetor 1: ');
Readln (vet1[contador]);
end;
Writeln;
For contador := 1 To 10 do
Begin
Write('Digite o ',contador:2,'§ numero do vetor 2: ');
Readln (vet2[contador]);
end;
clrscr;
For contador := 1 to 10 do
Begin
writeln(contador:2, '§ numero do vetor 1= ', vet1[contador]);
writeln(contador:2, '§ numero do vetor 2= ', vet2[contador]);
end;
Readkey;
End.