Nhập vào mảng a chứa n số nguyên từ a1…aN (N<= 100) a) Tính tổng các giá trị mảng b ) Tính tổng các số chẵn và số lẻ c) kiểm tra mảng A có phải là cấp số cộng hay kh?
Nhập vào mảng a chứa n số nguyên từ a1…aN (N<= 100) a) Tính tổng các giá trị mảng b ) Tính tổng các số chẵn và số lẻ c) kiểm tra mảng A có phải là cấp số cộng hay kh?
uses crt;
var n,i:byte;
a:array[1..100] of integer;
tong,tongchan,tongle:integer;
kt:boolean;
BEGIN
clrscr;
tong:=0; tongle:=tong; tongchan:=0;
write(‘Nhap N:’); readln(n);
for i:=1 to n do
begin
write(‘Nhap a[‘,i,’]:’);
readln(a[i]);
tong:=tong+a[i];
if a[i] mod 2=0 then tongchan:=tongchan+a[i]
else if a[i] mod 2=1 then tongle:=tongle+a[i];
end;
kt:=true;
for i:=2 to n-1 do
if abs(a[i]-a[i-1])<>abs(a[i+1]-a[i]) then
begin
kt:=false;
break;
end;
writeln(‘a)’,tong);
writeln(‘b)Tong chan:’,tongchan);
writeln(‘ Tong le:’,tongle);
write(‘c)’);
if kt=true then write(‘Phai’)
else write(‘Khong’);
readln
END.
Chúc bạn học tốt!