Ramires Ramos

uehuheiheuie isso acontece brother =D abraço! é..viajei na parada...ausasuausauasuasu!! vlw!! Abração. :D

Resolvido... Obrigado...

ow Kara..vo dar uma verificada aqui.... tem umas coisas idiotas mesmo ...tipo "if vetor mod 2 = 0 then begin // o certo seria vetor_inteiros....." :lol: ausuasasu...que duença!!""" mas aqui... mais uma vez muito obrigado aí pela atenção!!! Abraços!!!

ow Kara ...Obrigadão aí pela atenção... Taí a parte do Código! procedure TForm1.Button1Click(Sender: TObject); var vetor_inteiros:array[1..3] of integer; par,impar,contador,soma,maior:integer; media_aritimetica:real; begin Randomize; ListBox1.Clear; soma := 0; maior:= 0; par:=0; impar:=0; for i:=1 to 4 do begin vetor:=random(4); ListBox1.Items.Add(IntToStr(vetor)); soma:=soma+vetor_inteiros; end; media_aritimetica:= floattostr(soma/4); //Verificando Maior for i:=1 to 4 do begin maior := vetor; if vetor > maior then maior := vetor; edit4.Text := IntToStr(maior); end; //Pares e Impares for i:=1 to 4 do begin if vetor mod 2 = 0 then begin par := par + 1; end else begin impar := impar + 1; end; edit2.Text := FloatToStr (par); edit3.Text := FloatToStr (impar); end; end; Abraços!!

Bom Dia pessoal... preciso criar um aplicativo que faz o seguinte: Leia um vetor de 1000 elementos, usando o RANDOM, para o sorteio desses elementos...depois tenho que calcular a media dos elementos (até aqui td bem!), qual o maior elemento e quantos são pares e quantos são impares...e exibir isso tudo na tela após um click em um botão...usei o Listbox para essa exibição.. Por favor me deem uma ajuda na parte de verificar o maior e contar os pares e impares...fazer as verificações de par e impar eu até sei (if elemento MOD 2 = 0 ...end;) o problema que quanto coloco tudo junto no programa ele tá me retornando valores nada a ver... quem souber me dá uma ajuda aí.. Obrigadão... Abraço a Todos...