Question

Viết chƣơng trình đọc từ tệp ‘bai25.inp’ một số nguyên dƣơngN(1000>N) và dãy số nguyên có N phần tử a1, a2,…aN có giá trị tuyệt đối khôngquá 300000. Ghi thông tin vào tệp ‘bai25.out’ các giá trị sau:a, Số lƣợng số chẵn, số lƣợng số lẻ trong dãyb, kiểm tra dãy số có phải là cấp số cộng không, rồi đƣa ra thông báo 

 

Answer 1

const fi='bai25.inp'

fo='bai25.out'

var f1,f2:text;

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

i,n,dem,dem1,d:integer;

kt:boolean;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do 

  read(f1,a[i]);

dem:=0;

dem1:=0;

for i:=1 to n do 

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

else inc(dem1);

writeln(f2,'So luong so chan la: ',dem);

writeln(f2,'So luong so le la: ',dem1);

d:=abs(a[2]-a[1]);

kt:=true;

for i:=2 to n do

  if abs(a[i]-a[i-1])<>d then

begin

kt:=false;

break;

end;

if kt=true then writeln(f2,'Day la day cap so cong')

else writeln(f2,'Day khong la day cap so cong');

close(f1);

close(f2);

end.