Exercise14-03-2016

program baitap;
uses crt;
var
i,j,n,temp,sochan,sole,sont:integer;
A:Array[1..100] of integer;
lasnt :boolean;
begin
clrscr;
{nhap kick thuoc mang}
repeat
write('Nhap vao kich thuoc mang n = ');
readln(temp);
if(temp > 100) OR (temp<0) then
writeln('Kich thuoc mang phai la so duong va khong duoc lon hon 100. Nhap lai')
else
n:=temp;
until (temp<=100) AND (temp>0);
{nhap cac phan tu cua mang}
for i:=1 to n do
begin
{kiem tra dieu kien nhap}
repeat
write('nhap vao phan tu A[',i,'] = ');
readln(temp);
if(abs(temp)> 1000) then
writeln('Phan tu nhap vao co gia tri tuyet doi > 1000, nhap lai')
else
A[i] := temp;
until abs(temp)<=1000;
end;
sochan:=0;
sole:=0;
sont:=0;
{tinh so phan tu chan va le}
for i:=1 to n do
begin
{dem so chan so le}
if(abs(A[i]) mod 2 = 1) then
sole := sole+1
else
sochan:=sochan+1;
{dem so nguyen to}
if(A[i] <= 0) or (A[i] = 1) then
lasnt:=false
else
begin
lasnt := true;
for j:= 2 to round(sqrt(A[i])) do
begin
if(A[i] mod j = 0) then
begin
lasnt:=false;
break;
end;
end;
if(lasnt=true) then
sont:=sont+1;
end;
end;
writeln('So chan : ', sochan);
writeln('So le : ', sole);
writeln('So nguyen to : ',sont);
readln;
end.