Question

AJUTORRR!!!!!!!!!!!!!!!!!!!!!!Se citesc de la tastatura n numere intregi nenule.sa se calculeze suma celor pozitive si produsul celor negative.Scrieti-mi programul in pascal pls.DAU COROANA!!!!!!!!!!!!!!!!!!!!!!!!

Answer 1

Varianta C++:

#include<iostream>#include <math.h> using namespace std;  int main(){    int i, n, vect[100], s=0, p=1;    cin>>n;    for (i=1; i<=n; i++) {        cin>>vect[i];        if (i%2==0) s+=vect[i];        else p*=vect[i];    }    cout<<"Suma = "<<s<<endl;    cout<<"Produsul= "<<p;    return 0;}

Trb sa inv sa adaptezi in Pascal....Nu am lucrat in el dar inlocuiesti doar cateva elemente care nu-s in Pascal cum ar fi (if, for, cin)

Sper ca te-am ajutat oarecum... Scuze