Como fazer somatório em Pascal?

mrveiga

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

riley-allen_60b4a9c5d72ef

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.