Question

Se da un vector cu maxim 10 valori intregi. De elaborat un program care afiseaza valorile vectorului introdus si suma valorilor pozitive din vectori.

Answer 1

program SumaVector;

type Vector = array [1..10] of real;
var x : Vector;
i:integer;
suma:real;
begin
i:=1;
suma:=0;
x[1]:=15;
x[2]:=27;
x[3]:=39;
x[4]:=55;
x[5]:=-67;
x[6]:=79;
x[7]:=-58;
x[8]:=79;
x[9]:=-90;
x[10]:=97;
{ afisam valorile vectorului}
writeln('valorile vectorului sunt urmatoarele:');
for i:=1 to 10 do writeln(x[i]:2:0);
{suma valorilor pozitive din vector}
for i:=1 to 10 do if (x[i]>0) then suma:=suma+x[i];
writeln;
write('suma valorilor pozitive este=');write(suma:2:0);
end.

pentru numerele alese afiseaza: 

valorile vectorului sunt urmatoarele:
15
27
39
55
-67
79
-58
79
-90
97

suma valorilor pozitive este=391