Como fazer somatório em Pascal?

Como fazer um programa que some muitos valores no pascal, utilizando o array é claro, pra não precisar criar várias variáveis.

Comments

  • Bem crie a seguinte sintaxe:

    Program nome_do_programa;

    Var

    vet1,vet2:array[1..50] of real;

    i:integer;

    vet3:real;

    Begin

    For i:=1 to 50 do

    Write('Digite valores para o vetor 1:');readln(vet1[i]);

    Write('Digite valores para o vetor 2:');readln(vet2[i]);

    vet3[i]:=vet1[i]+vet2[i];

    end;

    For i:=1 to 50 do

    Writeln(vet3[i]);

    end;

    end.

Sign In or Register to comment.