Question

nhập mảng a, in mảng đã nhập, tính tổng, tích, tổng chẵn, tổng lẻ trong mảng trong pascal

 

Answer 1

Tham khảo:

a: 

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,t1,t2;

int main()

{

cin>>n;

t1=0;

t2=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x%2==0) t1=t1+x;

else t2=t2+x;

}

cout<<t1<<" "<<t2;

return 0;

}

Answer 2

uses crt;

var a:array[1..100]of integer;

i,n,t,s,t1,t2:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

s:=1;

t1:=0;

t2:=0;

for i:=1 to n do 

begin

t:=t+a[i];

s:=s*a[i];

if a[i] mod 2=0 then t1:=t1+a[i]

else t2:=t2+a[i];

end;

writeln(t);

writeln(s);

writeln(t1);

writeln(t2);

readln;

end.