{
Soit V1 et V2 deux vecteurs de type réel de taille N.
Ecrire un algorithme/programme PASCAL qui permet de calculer la somme et le produit scalaire de V1 et V2.
Remarque : La somme de deux vecteurs est un vecteur – Le produit scalaire de deux vecteurs est une valeur
scalaire (réelle).
}
program exo_supp_3;
var
V1,V2,V : array[1..100] of real;
N,i:integer;
Ps:real;
begin
{Entrées}
writeln ('Donner la taille des vecteurs V1 et V2 :');
read(N);
writeln('Donner les composantes du vecteur V1 : ');
for i:=1 to N do
read(V1[i]);
writeln('Donner les composantes du vecteur V2 : ');
for i:=1 to N do
read(V2[i]);
{Traitement}
for i:=1 to N do
V[i]:=V1[i]+V2[i];
Ps:=0;
for i:=1 to N do
Ps:=Ps+V1[i]*V2[i];
{Sorties}
writeln('La somme des deux vecteurs est :');
for i:=1 to N do
write(V[i]:8:1);
writeln ;
writeln('Le produit scalaire est :',Ps:8:1);
end.
