intercalar dois arrays (vetores)
Publicado por NewLinuxer 13/12/2005
[ Hits: 12.859 ]
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.
Metodo de Ordenacion : Burbuja
Operações básicas da matemática
Nenhum comentário foi encontrado.
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
Linux é a solução para o fim do Windows10? (2)
Problemas com Driver NVIDIA (4)
Programa fora de escala na tela do pc (28)
converter algoritmo C++ em C? (1)
Fedora KDE plasma 42 X Módulo de segurança BB (Warsaw-2) (1)









