Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Thu Hiền

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.

Bao112233
17 tháng 12 2022 lúc 21:34

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.


Các câu hỏi tương tự
Trần Ngọc Hiếu
Xem chi tiết
Trần Cương
Xem chi tiết
Linh Chi
Xem chi tiết
Xuân Linh
Xem chi tiết
Minh Thư
Xem chi tiết
nông thị ngân
Xem chi tiết
Cẩm Tú
Xem chi tiết
Trương Thi Minh Thiết
Xem chi tiết
Benny
Xem chi tiết