1, Viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím 1 dãy gồm N số nguyên rồi tính tổng các số trong dãy vừa nhập. ( với N cũng được nhập từ bàn phím) VD: N=10 A={5,6,15,24,16,17,3,7,12,21} Tổng các số=126 2, Viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím 1 dãy gồm N số nguyên rồi tính tổng các số chẵn trong dãy vừa nhập. ( với N cũng được nhập từ bàn phím) VD: N=10 A={5,6,15,24,16,17,3,7,12,21} Tổng các số chẵn=58 3, Viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím 1 dãy gồm N số nguyên rồi tính tổng các số lẻ trong dãy vừa nhập. ( với N cũng được nhập từ bàn phím) VD: N=10 A={5,6,15,24,16,17,3,7,12,21} Tổng các số lẻ=68 4, Viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím 1 dãy gồm N số nguyên rồi tính tổng các số dương trong dãy vừa nhập. ( với N cũng được nhập từ bàn phím) VD: N=10 A={5,-6,15,-24,16,-17,3,7,-12,21} Tổng các số dương=67 giúp vs ah!!! mk đg cần gấp, camon!!!

1.

program ct;

uses crt;

var i,n,s:integer; 

A:array[1..100] of integer;

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

s:=0;

for i:=1 to n do

s:=s+A[i];

writeln('tong la:',s);

readln

end.

2.

program ct;

uses crt;

var i,n,s:integer; 

A:array[1..100] of integer;

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

s:=0;

for i:=1 to n do

  if A[i] mod 2=0 then s:=s+A[i];

writeln('tong cac so chan la:',s);

readln

end.

3.

program ct;

uses crt;

var i,n,s:integer; 

A:array[1..100] of integer;

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

s:=0;

for i:=1 to n do

   if A[i] mod 2=1 then s:=s+A[i];

writeln('tong cac so le la:',s);

readln

end.

4.

program ct;

uses crt;

var i,n,s:integer; 

A:array[1..100] of integer;

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

s:=0;

for i:=1 to n do

  if A[i]>0 then s:=s+A[i];

writeln('tong cac so duong la:',s);

readln

end.

1) uses crt;
var i,n,t : integer;
a : array[1..100] of integer;
begin clrscr; t:=0;
write('Nhap n:'); readln(n);
for i:=1 to n do begin write('Nhap a[',i,']='); readln(a[i]);
end;
for i:=1 to n do t:=t+a[i];
write('Tong cua day la :', t);
readln
end.

2) uses crt;
var i,n,t : integer;
a : array[1..100] of integer;
begin clrscr; t:=0;
write('Nhap n:'); readln(n);
for i:=1 to n do begin write('Nhap a[',i,']='); readln(a[i]);
end;
for i:=1 to n do if a[i] mod 2 = 0 then t:=t+a[i];
write('Tong cac so chan cua day :', t);
readln
end.

3) uses crt;
var i,n,t : integer;
a : array[1..100] of integer;
begin clrscr; t:=0;
write('Nhap n:'); readln(n);
for i:=1 to n do begin write('Nhap a[',i,']='); readln(a[i]);
end;
for i:=1 to n do if a[i] mod 2 = 1 then t:=t+a[i];
write('Tong cac so le cua day :', t);
readln
end.

4) uses crt;
var i,n,t : integer;
a : array[1..100] of integer;
begin clrscr; t:=0;
write('Nhap n:'); readln(n);
for i:=1 to n do begin write('Nhap a[',i,']='); readln(a[i]);
end;
for i:=1 to n do if a[i] > 0 then t:=t+a[i];
write('Tong cac so duong cua day :', t);
readln
end.