Cho dãy A gồm n số nguyên A1,A2,A3,…An.Hãy viết các thuật toán thực hiện các công việc sau.
Tìm và tính tổng các số dương có trong dãy
Tìm và tính tổng các số âm có trong dãy
Tìm và tính tổng các số chẵn có trong dãy
Tìm và tính tổng các số lẻ có trong dãy
Các cao thủ giỏi tin học giúp t nha
uses crt;
var a: array[1..100] of integer;
i,n,td,ta,tc,tl:integer;
begin
clrscr;
write (‘nhap so phan tu cua day: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap a[‘,i,’]: ‘); readln (a[i]);
if a[i]>0 then td:=td+a[i];
if a[i]<0 then ta:=ta+a[i];
if a[i] mod 2=0 then tc:=tc+a[i];
if a[i] mod 2<>0 then tl:=tl+a[i];
end;
writeln (‘tong cac so chan: ‘,tc);
writeln (‘tong cac so le: ‘,tl);
writeln (‘tong cac so am: ‘,ta);
writeln (‘tong cac so duong: ‘,td);
readln;
end.
uses crt;
var A:array[1..100] of integer;
n,i,td,ta,tc,tl:integer;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
writeln(‘Nhap cac phan tu cua day’);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);
readln(A[i]);
end;
td:=0; ta:=0; tc:=0; tl:=0;
for i:=1 to n do
begin
if A[i]>0 then td:=td+A[i]
else ta:=ta+A[i];
if A[i] mod 2=0 then tc:=tc+A[i]
else tl:=tl+A[i];
end;
writeln(‘Tong cac so duong cua day la: ‘,td);
writeln(‘Tong cac so am cua day la: ‘,ta);
writeln(‘Tong cac so chan cua day la: ‘,tc);
writeln(‘Tong cac so le cua day la: ‘,tl);
readln
end.