intercalar dois arrays (vetores)
Publicado por NewLinuxer 13/12/2005
[ Hits: 12.836 ]
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.
encontrar o menor valor em um vetor
Calculadora Empresarial feita no Lazarus (Delphi 7 para Linux)
Calculadora De Decimo Terceiro Salário feita no Lazarus (Delphi 7 para Linux)
Nenhum comentário foi encontrado.
IA local no bolso, novo visual no Raspberry Pi OS e mais destaques do software livre
Kernel turbinado, compatibilidade em alta e debate sobre sustentabilidade: o dia no mundo Linux
Kernel turbinado e GNOME 49 dominam o giro do dia no mundo Linux
Novidades Linux: Kernel 6.17, distros em ebulição e segurança em foco
Kernel ganha novos linters Rust e distros avançam com recursos de IA
Adicionando o repositório backports no Debian 13 Trixie
Como definir um IP estático no Linux Debian
O que você está ouvindo agora? [2] (223)
Como vencer a procrastinação? (3)
Alguém que utilize o Warsaw do BB no Ubuntu 24.04 [RESOLVIDO] (7)
Orientação para instalar o Warsaw - módulo de proteção do Banco do Bra... (9)