👤
a fost răspuns

Elaborati un program in Pascal care sa indeplineasca urmatoarele conditii(toate intr-un program).
a)De dublat elementele pozitive pare;
b)Suma elementelor negative impare pe locuri pare;
c)Media elementelor pozitive pare.
Utilizati array [1..100];

Răspuns :

B32VIZ
#include<iostream>
using namespace std;
int main()
{
     int array[100],i,S=0,n,c=0,ma=0;
     cin>>n;
     for(i=1;i<=n;i++)
{
     cout<<"array["<<i<<"]"<<"=";
     cin>>array[i];
}
      for(i=1;i<=n;i++)  
     if(array[i]>0 && array[i]%2==0)
        array[i]=2*array[i];
      for(i=1;i<=n;i++)  
     if(array[i]<0 && array[i]%2==1 && i%2==0)
     S=S+array[i];
     for(i=1;i<=n;i++)  
       if(array[i]>0 && array[i]&2==0)
        c++;
       for(i=1;i<=n;i++)  
       if(array[i]>0 && array[i]&2==0)
         ma=(ma+array[i])/c;
cout<<S;
cout<<ma;
return 0;
}
L-am facut in C++,nu m-am complicat sa il transform in Pascal,nu l-am rulat,probabil sunt erori mici dar sper sa te ajute
 
Vă mulțumim pentru vizita pe platforma noastră dedicată Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Așteptăm cu entuziasm să reveniți și vă invităm să ne adăugați la lista de favorite!


Viz Lesson: Alte intrebari