JackaLoko

Boa noite pessoal, venho aqui pedir a ajuda de vocês em mais um problema . Este é o problema que preciso resolver galera, segue abaixo o código que fiz até o momento : Program produtos ; var codigo : array [1..5] of integer; produto : array [1..5] of string; preco : array [1..5] of real; x, op : integer; Begin for x := 1 to 5 do Begin writeln('Digite o Codigo do ', x , ' produto' ); readln(codigo[x]); writeln('Digite o Nome do ', x , ' produto' ); readln(produto[x]); writeln('Digite o Preço do ', x , ' produto' ); readln(preco[x]); end; writeln('Código : ',codigo[1]); writeln('Nome Do Produto : ',produto[1]); writeln('Preço : ',preco[1]); writeln(); writeln('Código : ',codigo[2]); writeln('Nome Do Produto : ',produto[2]); writeln('Preço : ',preco[2]); writeln(); writeln('Código : ',codigo[3]); writeln('Nome Do Produto : ',produto[3]); writeln('Preço : ',preco[3]); writeln(); writeln('Código : ',codigo[4]); writeln('Nome Do Produto : ',produto[4]); writeln('Preço : ',preco[4]); writeln(); writeln('Código : ',codigo[5]); writeln('Nome Do Produto : ',produto[5]); writeln('Preço : ',preco[5]); writeln(); writeln('Digite a opção desejada:'); writeln('1 - Concretizar Venda '); writeln('2 - Sair '); readln(op); if ( op = 1 ) then begin writeln(''); end; if ( op = 2 )then begin exit; end; End. Preciso continuar a parte de quando concretizar a venda ele me mostrar os produtos e dependendo do código selecionado ele busca o preço e multiplica pela quantidade vendida. Se alguém tiver uma sugestão de como fazer ficarei muito grato .

Com este code não obtive êxito Math, estou usando o Pzim para programar e está dando erro em algumas sintaxes e fui modificar e a saída não ficou perfeita ... Olha como eu fiz, mas não está dando certo. Program tresvetores ; var vetor1:array[1..10] of integer; var vetor2:array[1..10] of integer; var vetor3:array[1..10] of integer; var i, maior : integer;Beginfor i := 1 to 4 doBegin writeln('Digite o ', i , ' valor para ser armazenado no PIRMEIRO vetor'); readln(vetor1[i]); end; for i := 1 to 4 doBegin writeln('Digite o ', i , ' valor para ser armazenado no SEGUNDO vetor'); readln(vetor2[i]);end; for i := 1 to 4 doBegin vetor3[i] := vetor1[i] + vetor2[i]; end; //crie uma variável "maior" no início do programafor i := 1 to 4 doBegin if ( i = 1 ) then begin maior := vetor3[i] end; if vetor3[i] > maior then begin maior := vetor3[i]; endend; for i := 1 to 10 doBegin writeln('TERCEIRO vetor: ', vetor3[i]); end; writeln('MAIOR numero do TERCEIRO vetor: ', maior); End.

Olá Math, olha ficou legal essa forma que você me mandou ai, se não for pedir de mais você poderia me ajudar a escrever apenas o maior valor do vetor3 ?

Olá Math , então a questão é esta : Preciso de um programa que : Leia dois vetores de 10 posições, e alimente um terceiro vetor com a soma dos dois primeiros vetores, em seguida mostre qual o maior valor do terceiro vetor. No caso ali tem 4 posições apenas para testar. Deste jeito que eu fiz o vetor3 está recebendo apenas a soma dos dois ultimos valores digitados, exemplo : o usuário digitou : 10,20,30,40,50,60,70,80 o vetor3 está recebendo apenas 70+80 ... eu preciso que some a cada dois valores digitados e me mostre o maior valor do vetor3.

Primeiramente boa noite a todos(as), sou novo no fórum pois estou iniciando agora o baracharelado em sistemas de informação e como não poderia faltar já temos alguns exercícios, até então estava indo tranquilo porém pela falta de material na facul eu estou com dificuldades nesta atividade, se alguém puder ajudar ficarei agradecido . Preciso de um programa que : Leia dois vetores de 10 posições, e alimente um terceiro vetor com a soma dos dois primeiros vetores, em seguida mostre qual o maior valor do terceiro vetor. * Minha dificuldade está em armazenar os valores sem sobrescrever, pois eu só consegui até o momento pegar os dois últimos valores somados. Meu código até o momento. ( ME DESCULPEM QUALQUER ERRO OK ? ) Program tresvetores ; var vetor1:array[1..10] of integer; vetor2:array[1..10] of integer; vetor3:array[1..10] of integer; i, aux : integer;Beginfor i := 1 to 4 doBegin writeln('Digite o ', i , ' valor para ser armazenado no PIRMEIRO vetor'); readln(vetor1[i]); writeln('Digite o ', i , ' valor para ser armazenado no SEGUNDO vetor'); readln(vetor2[i]); vetor3[i] := vetor1[i] + vetor2[i]; end; End. Me ajudem por favor galera ? Lembrando , PASCALZIM . Obrigado desde já pessoal !!!!!!