[PASCAL]Dúvida com arrays

[CucaFresca]

Olá,

Então, estou escrevendo um algoritmo que armazena 40 inteiros divididos em dois vetores, Vet1 e Vet2.

Além desses dois vetores há um terceiro vetor VetOp(de char), com 20 posições. Este vetor armazena operadores matemáticos (+ - , etc...).

O algoritmo deve realizar a operação correspondente em cada posição do VetOp para os dois vetores.

Em suma, gostaria de fazer algo do tipo:

Vet1 VetOp Vet2

Como se fosse:

2 + 2

O problema é que dessa forma não compila.

Como poderei expressar o sinal de VetOp ??

Valeu pela atenção!

[raphael_suporte]

cara manda teu código, para poder dar uma olhada assim ficou difícil identificar e outra normalmente o pascal avisa onde está o erro.

[CucaFresca]

cara manda teu código, para poder dar uma olhada assim ficou difícil identificar e outra normalmente o pascal avisa onde está o erro.

Program Vetores;

Uses CRT;

Const
max = 20;

Type
Vetor = array [1..max] of Integer;
Vetorsoma = array [1..max] of Char;

Var
i : Integer;
Vet1 : Vetor;
Vet2 : Vetor;
Vetsoma : Vetorsoma;

Begin

    ClrScr;
    Writeln ('Prencha o primeiro vetor: ');
    For i := 1 to max do
        Readln (Vet1[i]);
    Writeln ('Prencha o segundo vetor: ');
    For i := 1 to max do
        Readln (Vet2[i]);
    Writeln ('Prencha o terceiro vetor(operacoes): ');
    For i := 1 to max do
        Readln (Vetsoma[i]);

    For i := 1 to max do
        Writeln ('O ', i, ' resultado ‚: ', Vet1[i] Vetsoma[i] Vet2[i]);
    Readln;
    End.