bài 1. Viết chương trình nhập vào n số thực a. Tính tổng các số âm trong các số vừa nhập b. Tính tổng các số dương trong các số vừa nhập bài 2. Viết chương trình nhập vào n số nguyên đếm các số vừa chia hết cho 2, cho 3 và cho 6. In kết quả ra màn hình

a)

program ct;

uses crt;

var A:array[1..10000] of integer;

      i,n:integer;

      Sa,Sd:longint;

begin clrscr;

   write('Nhap so n: '); readln(n);

   for i:=1 to n do

     begin

        writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

     Sa:=0; Sd:=0;

   for i:=1 to n do

     begin

        if A[i] <0 then Sa:=Sa+A[i];

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

     end;

   writeln('Tong cac so am la: ',Sa);

   writeln('Tong cac so duong la: ',Sd);

readln;

end.

b)

program ct;

uses crt;

var A:array[1..10000] of integer;

      i,n,dem:integer;

begin clrscr;

   write('Nhap so n: '); readln(n);

   for i:=1 to n do

     begin

        writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

     dem:=0;

   for i:=1 to n do

     if A[i] mod 2=0 and A[i] mod 3=0 and A[i] mod 6=0 then dem:=dem+1;

   writeln('Co tat ca ',dem,' so vua chia het cho 2, cho 3, cho 6');

readln;

end.

Học tốt!