👤
ENIDIACIUC
a fost răspuns

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 .

Salut Îmi Trebuie Ajutor La Informatică Turbo Pascal Se Da Un Tablou A1nn Mai Mare Sau Egal Cu 100 De Numere Reale Determinati Daca Produsul Elementelor De Pe L class=
Salut Îmi Trebuie Ajutor La Informatică Turbo Pascal Se Da Un Tablou A1nn Mai Mare Sau Egal Cu 100 De Numere Reale Determinati Daca Produsul Elementelor De Pe L class=

Răspuns :

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:

Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări suplimentare sau nevoie de ajutor, vă rugăm să ne contactați cu încredere. Așteptăm cu drag să reveniți și nu uitați să ne salvați în lista dumneavoastră de favorite!


En Studentsy: Alte intrebari