Como fazer um programa que some muitos valores no pascal, utilizando o array é claro, pra não precisar criar várias variáveis.
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;
Writeln(vet3[i]);
end.
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.