Răspuns:
program sume;
var a: array [1..100] of integer;
n, i, suma_pare, suma_impare:integer;
begin
write('Dati numarul de elemente al vectorului: ');
readln(n);
for i:=1 to n do
readln(a[i]);
suma_pare := 0;
suma_impare := 0;
for i:=1 to n do
begin
if i mod 2 = 0 then
suma_pare := suma_pare+a[i]
else
suma_impare := suma_impare+a[i]
end;
if suma_pare = suma_impare then
writeln('DA')
else
writeln('NU');
readln;
end.
Explicație:
Mai sus este codul. In atasament este rezultatul executiei
