intercalar dois arrays (vetores)
Publicado por NewLinuxer 13/12/2005
[ Hits: 12.512 ]
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.
Crivo de Eratóstenes Simples em Ada 95
calculo de porcentagem em vetores
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (1)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
Quais Shell Scripts vocês usam? (15)
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (22)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba