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...
Đọc tiếp
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
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.