uses crt;

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

n,i,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then inc(dem);

writeln('So phan tu chan la: ',dem);

readln;

end.

Program HOC24;

var d,i,n: integer;

a: array[1..1000] of integer;

t: longint;

function nt(x: longint): boolean;

var j: longint;

begin

nt:=true;

if (x=2) or (x=3) then exit;

nt:=false;

if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(x)) do

begin

if (x mod j=0) or (x mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

begin

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

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

d:=0; t:=0;

for i:=1 to n do

if nt(a[i]) then

begin

d:=d+1;

t:=t+a[i];

end;

writeln('Co ',d,' so nguyen to trong day');

write('Tong cac so nguyen to trong day la: ',t);

readln

end.

uses crt;

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

i,n,dem,t,j,kt:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

t:=0;

for i:=1 to n do 

  if a[i]>1 then 

begin

kt:=0;

for j:=2 to a[i]-1 do 

 if a[i] mod j=0 then kt:=1;

if kt=0 then

begin

inc(dem);

t:=t+a[i];

end;

end;

writeln('So luong so nguyen to la: ',dem);

writeln('Tong cac so nguyen to la: ',t);

readln;

end.

- Có thể xác định truyện ngắn gồm 4 phần:

+ Đoạn 1 (từ đầu ... đã nói những lời ấy): Lời yêu thương chân thành bột phát của nhân vật “tôi” bất giác trở thành một chuyện đùa, song lại nhen lên trong lòng Na-đi-a khát vọng hạnh phúc cùng những băn khoăn

+ Đoạn 2 (tiếp ... không còn khả năng hiểu nữa): Na-đi-a say sưa với khát vọng yêu thương, quyết tâm tìm ra nỗi sợ, truy tìm sự thật một mình

+ Đoạn 3 (tiếp ... thu xếp đồ đạc): cảnh chia tay lúc xuân sang, khoảnh khắc giao cảm một lần nữa bùng lên rồi vụt tắt

+ Đoạn 4: (còn lại): những suy tư, tiếc nuối, trăn trở nhiều năm sau, khi tất cả chỉ còn là kỉ niệm

uses crt;

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

i,n,dem1,dem2:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

 begin

write('A[',i,']='); readln(a[i]);

end;

dem1:=0;

dem2:=0;

for i:=1 to n do 

 begin

if a[i]>0 then inc(dem1);

if a[i]<0 then inc(dem2);

end;

writeln('So so nguyen duong la: ',dem1);

writeln('So so nguyen am la: ',dem2);

readln;

end.

program TongSoLeTrongDay;

var

      n, i, tong, dem: integer;

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

begin

      tong := 0;

      dem := 0;

      write('Nhap so phan tu cua day: ');

      readln(n);

      for i := 1 to n do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(a[i]);

            tong := tong + a[i];

            if a[i] mod 2 <> 0 then

            begin

                  dem := dem + 1;

            end;

      end;

      writeln('Tong cac phan tu trong day la: ', tong);

      writeln('So phan tu le trong day la: ', dem);

      readln;

end.

program TongSoVaSoDuongTrongDay;

var

      n, i, tong, dem, tongDuong: integer;

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

begin

      tong := 0;

      dem := 0;

      tongDuong := 0;

      write('Nhap so phan tu cua day: ');

      readln(n);

      write('Nhap day so n: ');

      for i := 1 to n do

      begin

            readln(a[i]);

            tong := tong + a[i];

            if a[i] > 0 then

            begin

                  dem := dem + 1;

                  tongDuong := tongDuong + a[i];

            end;

      end;

      writeln('Tong cac phan tu trong day la: ', tong);

      writeln('So phan tu duong trong day la: ', dem);

      writeln('Tong cac so duong trong day la: ', tongDuong);

      readln;

end.