subprogramas

[lincon_ 0]

ola pessoal, preciso resolver um exercício:

escreva um algoritmo que leia um vetor de 10 valores inteiros e a seguir conte quantos deles são pares. Utilize um SUBPROGRAMA para contar. O resultado deve ser escrito no programa principal. Ta aí a minha dúvida, como eu resolvo com subprograma? Eis o meu algoritmo. Se alguem puder ajudar ae. valeu

 

program pares;
var 
vet: array [1..10] of integer;
cont,i: integer;
begin
writeln ('digite um valor');
for i := 1 to 10 do
begin
readln (vet[i])
end;
cont:=0;
for i := 1 to 10 do
begin
if (vet[i] mod 2 = 0) then
begin
cont:=(cont+1)
end;
end;
writeln ('o numero de valores pares e:',cont);
end.

[quitZAUMMM 18]

bom oq eu entendo por um subprograma é um "método"

 

procure pelas palavras chaves no google: "método", "função", "procedimento".... ow até msm "classes"

 

[]'s

[lincon_ 0]

bom oq eu entendo por um subprograma é um "método"

 

procure pelas palavras chaves no google: "método", "função", "procedimento".... ow até msm "classes"

 

[]'s

 

isso, é uma função, mas eu não consigo fazer

[Kandrade 7]

Crie uma função:

http://www.apoioinformatica.inf.br/visualg/linguagem4.htm

[lincon_ 0]

Crie uma função:

http://www.apoioinformatica.inf.br/visualg/linguagem4.htm

legal, valeu kandrade

[Kandrade 7]

Foi nada.

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif