YOMEDIA
NONE

Viết chương trình nhập vào một dãy N số nguyên dương (N

1. Tìm và đưa ra màn hình số lớn nhất (Max) của dãy vừa nhập, nếu dãy có nhiều số đạt Max thì tính tổng Max và đưa ra màn hình tất cả các vị trí đạt Max.

2. Tìm và đưa ra màn hình số nhỏ nhất (Min) của dãy vừa nhập, nếu dãy có nhiều số đạt Min thì tính tổng Min và đưa ra màn hình tất cả các vị trí đạt Min

3. Đếm và tính tổng các số ở vị trí chẵn là bội của số K trong dãy vừa nhập  và đưa kết quả ra màn hình.

4. Đếm và tính tổng các số ở vị trí lẻ là ước của số K trong dãy vừa nhập và đưa kết quả ra màn hình.

5. Số a và số b là anh em của nhau nếu a = b + 1 hoặc b = a + 1. Đếm và tính tổng các số là anh em của K trong dãy vừa nhập  và đưa kết quả ra màn hình.

Theo dõi Vi phạm
ATNETWORK

Trả lời (1)

  • Bảo Anh

    uses crt;

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

     n,i,max,min,dem,t,dem1,t1,dem2,t2,dem3,t3,dem4,t4,k:integer;

    begin

    clrscr;

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

    for i:=1 to n do 

    begin     

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

    end;

    max:=a[1];

    for i:=1 to n do 

    if max<a[i] then max:=a[i];

    writeln('So lon nhat trong day la: ',max);

    dem:=0;

    t:=0;

    for i:=1 to n do 

    if max=a[i] then     

    begin       

    inc(dem);

    t:=t+a[i];       

    vtmax[dem]:=i;     

    end;

    if dem>1 then   

    begin     

    writeln('Tong cac so max la: ',t);     

    writeln('Cac vi tri co so max la: ');     

    for i:=1 to dem do       

    write(vtmax[i]:4);   

    end;

    min:=a[1];

    for i:=1 to n do 

    if min>a[i] then min:=a[i];

    writeln('So nho nhat trong day la: ',min);

    dem1:=0;

    t1:=0;

    for i:=1 to n do 

    if min=a[i] then     

    begin       

    inc(dem1);       

    t1:=t1+a[i];       

    vtmin[dem1]:=i;     

    end;

    if dem1>1 then   

    begin     

    writeln('Tong cac so min la: ',t1);     

    writeln('Cac vi tri co so min la: ');     

    for i:=1 to dem1 do       

    write(vtmin[i]:4);   

    end;

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

    dem2:=0;

    t2:=0;

    for i:=1 to n do 

    if (i mod 2=0) and (a[i] mod k=0) then     

    begin       

    dem2:=dem2+1;       

    t2:=t2+a[i];     

    end;

    writeln('So phan tu o vi tri chan trong day la boi cua ',k,' la: ',dem2);

    writeln('Tong cac so o vi tri chan trong day la boi cua ',k,' la: ',t2);

    dem3:=0;

    t3:=0;

    for i:=1 to n do 

    if (i mod 2=1) and (k mod a[i]=0) then     

    begin       

    inc(dem3);       

    t3:=t3+a[i];     

    end;

    writeln('So phan tu o vi tri le trong day la uoc cua ',k,' la: ',dem3);

    writeln('Tong cac so o vi tri le trong day la uoc cua ',k,' la: ',t3);

    dem4:=0;

    t4:=0;

    for i:=1 to n do 

    if (a[i]+k=1) or (a[i]=k+1) then     

    begin       

    inc(dem4);       

    t4:=t4+a[i];     

    end;

    writeln('So phan tu la anh em cua ',k,' trong day la: ',dem4);

    writeln('Tong cac phan tu la anh em cua ',k,' trong day la: ',t4);

    readln;

    end.

      bởi Bảo Anh 18/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
 
NONE

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

AANETWORK
 

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

 

YOMEDIA
ATNETWORK
ON