👤
IDIACIUCWIX
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 că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile disponibile v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de sprijin, nu ezitați să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la favorite pentru acces rapid.


Wix Learning: Alte intrebari