Question

Ajutatima sa elaborez un program va rog !!!
Se da un tablou A[1..n], n≤100 de numere reale. Determinati daca suma elementelor de pe locurile pare este egala cu suma elementelor de pe locurile impare. In cazul afirmativ se afiseaza ''Da'' , in caz contrar - ''Nu''.


Imi trebue acest program pe miine va rog in Turbo Pascal si un screen la rezultat.

Answer 1

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