Viết chương trình nhập từ bàn phím số nguyên dương N(N nhỏ hơn hoặc bằng 100) và dãy số nguyên A1, A2...An có giá trị tuyệt đối nhỏ hơn 1000. Đưa ra màn hình các thông tin sau: Tổng số nguyên dương chẵn, tích số nguyên âm lẻ của dãy số Tích các số nguyên chia hết cho 5 có trong dãy số Đưa kết quả ra màn hình

uses crt; 
var a: array[1..100] of integer; 
j,i,n,sole,sochan,so_ngto:integer; 

{Than chuong trinh} 
begin 
clrscr; 
write('N= '); readln(N); 
for i:=1 to n do 
begin 
write('A(',i,')= '); 
readln(a[i]); 
end; 
{Kiem tra} 
sochan:=0; 
sole:=0; 
so_ngto:=0; 
for i:=1 to n do begin 
if (a[i] mod 2 = 0) then sochan:=sochan+1 
else if (a[i] mod 2 = 1) then sole:=sole+1; 
if a[i]>1 then 
begin 
if a[i]=2 then so_ngto:=so_ngto+1 
else begin 
j:=1; 
repeat 
j:=j+1; 
until (a[i] mod j=0) or (j=a[i]-1); 
if j=a[i]-1 then so_ngto:=so_ngto+1; end; 
end; end; 
writeln('Trong day co: '); 
writeln(sole,' so le'); 
writeln(sochan,' so chan'); 
writeln(so_ngto,' so nguyen to'); 
readln 
end. 

Đáp án:

Uses crt;
Var B:Array[1..100] of integer;
      i, n, tc, tl, tm: longint;
Begin
     Clrscr;
     Write('Nhap n = '); readln(n);
     For i:=1 to n do
           Begin
                Write('B[',i,']=');
                Readln(B[i]);
            End;
     tc:=0; tl:=0; tm:=0;
     For i:=1 to n do if B[i] mod 2 = 0 then inc(tc, b[i]);
     For i:=1 to n do if B[i] mod 2 = 1 then inc(tl, b[i]);
     For i:=1 to n do inc(tm, b[i]);
     Writeln('Tong so nguyen chan la: ',tc:0:2);
     Writeln('Tong so nguyen le la: ',tl:0:2);
     Writeln('Tong gia tri cua day so la: ',tm:0:2);
Readln
End.

Giải thích các bước giải: