Question

Salut îmi trebuie ajutor la informatică (turbo pascal).

Se da un tablou A[1..n],n mai mare sau egal cu 100 de numere reale. Determinati daca produsul elementelor de pe locurile pare este egala cu suma elementelor de pe locurile impare.In caz afirmativ se afiseaza ''DA", in caz contrar "NU" fotografiile te vor ajuta .

Answer 1

Răspuns:

program vector;

var a:array[1..100] of integer;

   n,i,suma,produs:integer;

begin

    write('Dati numarul elementelor vectorului: ');

    readln(n);

    for i:=1 to n do

        readln(a[i]);

    suma:=0;

    produs:=1;

    for i:=1 to n do

        if i mod 2 = 0 then {pozitie para}

           produs:=produs*a[i]

        else {pozitie impara}

            suma:=suma+a[i];

    if suma=produs then

       writeln('DA')

    else

        writeln('NU');

    readln;

end.

Explicație: