Question

viết chuơng trình tính tổng n số chẵn (lẻ) số tự nhiên đầu tiên với n nhập từ bàn phím

Answer 1

Cách làm này là cách làm theo mảng nhé:

Uses crt;

var n,s:int64;

i:longint;

a:array[1..10000] of int64;

begin

clrscr;

readln(n);

for i:=1 to n do

readln(a[i]);

s:=0;

for i:=1 to n do

if a[i] mod 2 = 0 then

s:=s+a[i];

writeln('Tong so chan:',s);

s:=0;

for i:=1 to n do

if a[i] mod 2#0 then

s:=s+a[i];

writeln('Tong so le:');

readln

end.