obejtivo do programa, ler numeros impares e pares, executar a soma dos numeros impares e pares separadamente e depois a soma dos numeros impares e pares, o programa ta executando perfeitamente, podem queria entender pq o primeiro for n repete so esse for, vou explicar melhor dentro do programa
Program Pzim ;
var
vet : array[1…5] of integer;
somatot, cont, somai,somap : integer;
Begin
for cont := 1 to 5 do // esse for
begin
write('digite o ‘,cont,’§ numero: ');
readln(vet[cont]);
end; //ele n repete só daq pra cima, quando ele le o vetor
for cont := 1 to 5 do ele executa o segundo for tb, achei q o correto
begin seria ele repetir so ate o end;
if(vet[cont] mod 2 <> 0) then
begin
somai := somai + vet[cont];
end
else
begin
somap := somap + vet[cont];
end;
end;
somatot := somai + somap;
writeln('a soma dos numeros impares é: ',somai);
writeln('a soma dos numeros pares é: ',somap);
writeln('a soma dos numeros impares e pares é: ',somatot);
readln;
