OPTADS360
NONE
YOMEDIA
Banner-Video
IN_IMAGE

Viết chương trình nhập một mảng số nguyên gồm n phần tử,thực hiện các công việc sau:

a. Đếm các phần tử dương có mặt trong mảng

b. In ra màn hình các phần tử chẵn xuất hiện trong mảng

c. Tính trung bình cộng của các phần tử chẵn có mặt trong mảng

d. Nhập vào một số X,kiểm tra trong dayx xem có phần tử nào bằng X không? Nếu có thì chỉ ra vị trí của phần tử đó

e. Dãy đơn điệu là dãy các số nguyên giảm liên tiếp,kiểm tra xem dãy n số nguyên trong mảng có phải là dãy đơn điệu giảm hay không? Nếu không thì in ra màn hình hãy đơn điệu giảm dài nhất có mặt trong mảng

  bởi Mai Bảo Khánh 17/11/2021
ADMICRO/lession_isads=0

Câu trả lời (1)

  • uses crt;

    var a,b:array[1..100]of integer;

    dem,i,n,t,dem1,x,kt,kt1,dn,vt:integer;

    begin

    clrscr;

    write('Nhap n='); readln(n);

    for i:=1 to n do

    begin

    write('A[',i,']='); readln(a[i]);

    end;

    dem:=0;

    for i:=1 to n do

    if a[i]>0 then inc(dem);

    writeln('So phan tu duong trong mang la: ',dem);

    writeln('Cac so chan co trong mang la: ');

    t:=0;

    dem1:=0;

    for i:=1 to n do

    if a[i] mod 2=0 then

    begin

    write(a[i]:4);

    t:=t+a[i];

    inc(dem);

    end;

    writeln;

    writeln('Trung binh cong cac phan tu co mat trong mang la: ',t/dem:4:2);

    write('Nhap x='); readln(x);

    kt:=0;

    for i:=1 to n do

    if a[i]=x then

    begin

    kt:=kt+1;

    b[kt]:=i;

    end;

    if kt=0 then writeln(x,' khong co trong day')

    else begin

    writeln('Vi tri cua ',x,' trong day la: ');

    for i:=1 to kt do

    write(b[i]:4);

    end;

    kt1:=0;

    for i:=1 to n-1 do

    if a[i+1]>a[i] then kt1:=1;

    if kt1=0 then writeln('Day la day con don dieu giam')

    else begin

    dn:=0;

    dem1:=1;

    for i:=1 to n-1 do

    if a[i+1]<a[i] then

    begin

    inc(dem1);

    if i+1=n then

    begin

    if dn<dem1 then

    begin

    vt:=dn;

    dn:=dem1;

    end

    else if dn=dem1 then

    begin

    dn:=dem1;

    vt:=i+1;

    end;

    end;

    end

    else if a[i+1]>a[i] then

    begin

    if dn<dem1 then

    begin

    vt:=i;

    dn:=dem1;

    end

    else if dn=dem1 then

    begin

    dn:=dem1;

    vt:=i;

    end;

    end;

    dem1:=1;

    writeln('Day don dieu giam dai nhat trong mang la: ');

    for i:=vt-dn+1 to vt do

    write(a[i]:4);

    end;

    readln;

    end.

      bởi Lê Tấn Vũ 17/11/2021
    Like (0) Báo cáo sai phạm
Cách tích điểm HP

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
 

Các câu hỏi mới

NONE
OFF

XEM NHANH CHƯƠNG TRÌNH LỚP 11