intercalar dois arrays (vetores)
Publicado por NewLinuxer 13/12/2005
[ Hits: 12.804 ]
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.
Visualizador de imagem Pascal/Lazarus
armazenar estoque em uma matriz
validando um triângulo e classificando-o como equilátero, isoceles ou escaleno.
Nenhum coment�rio foi encontrado.
Conciliando o uso da ZRAM e SWAP em disco na sua máquina
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Autologin: praticidade ou não?
Instalação do Onion OS no Miyoo Mini e Miyoo Mini Plus
Proteja seu Linux Mint com o Timeshift: Restaure o sistema mesmo que ele não inicie!
Alguém pode me recomendar um editor de textos? [RESOLVIDO] (10)
Problemas com Go-Global AppController no Ubuntu 24.04.3 (2)
Jogos baixados na Central de Aplicativos mas que não abrem (2)