Question

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];

Answer 1

#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