Question

Mảng 1 chiều B gồm N phần tử (N≤50), giá trị các phần tử là các số nguyên. Đưa ra màn hình:

- Mảng vừa nhập với thứ tự các phần tử ngược lại( NHập vào 3,6,8 đưa ra 8 6 3)

- đếm số phần tử chẵn

- Kiểm tra và đưa ra màn hình thông báo máy, A có lập thành cấp số cộng hay không.

Answer 1

var n,i,dem,t:integer;
a:array[1..50] of integer;
begin
    dem:=0;
    t:=0;
    read(n);
    for i:=1 to n do 
    read(a[i]);
    for i:=n downto 1 do
    write(a[i]);
    writeln;
    for i:=1 to n do 
    if (a[i] mod 2 = 0) then dem:=dem+1;
    if a[i]<a[i-1] then t:=t+1;
    writeln(dem);
    if t=0 then write('Co lap thanh cap so +')
    else write('Ko the lap thanh cap so +');
    readln;
end.