YOMEDIA
NONE

Nhập vào một dãy n số nguyên A[1],A[2],...,A[n] . Đọc ra màn hình các thông tin sau:

- Tổng các phần tử của dãy.

- Số lượng các số hạng dương và tổng của các số hạng dương.

- Số lượng các số hạng âm và tổng của các số hạng âm.

- Trung bình cộng của cả dãy.

- Trung bình cộng các phần tử dương của mảng.

- Trung bình cộng các phần tử âm của mảng.

- Số hạng lớn nhất của dãy và chỉ số của nó.

- Số hạng nhỏ nhất của dãy và chỉ số của nó.

- Số lượng số chẵn và số lẻ trong dãy.

Theo dõi Vi phạm
ATNETWORK

Trả lời (1)

  • Nhật Mai

    uses crt;

    var i,n,tcd,t,t1,dem,dem1,dem2,dem3,dem4,dem5:longint;

    a,b,c:array[1..100]of longint;

    min,max:int64;

    tbc,tbcd,tbca:real;

    begin

    clrscr;

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

    for i:=1 to n do

    begin

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

    end;

    {---------------------------cau-1----------------------}

    tcd:=0;

    for i:=1 to n do

    tcd:=tcd+a[i];

    writeln('tong cac phan tu trong day la: ',tcd);

    {-------------------------cau-2----------------------}

    dem:=0;

    t:=0;

    for i:=1 to n do

    if a[i]>0 then

    begin

    inc(dem);

    t:=t+a[i];

    end;

    writeln('so luong cac so hang duong la: ',dem);

    writeln('tong cac so hang duong la: ',t);

    {-----------------------cau-3-----------------------}

    dem1:=0;

    t1:=0;

    for i:=1 to n do

    if a[i]<0 then

    begin

    inc(dem1);

    t1:=t1+a[i];

    end;

    writeln('so luong cac so hang am la: ',dem1);

    writeln('tong cac so hang am la: ',t1);

    {---------------------cau-4---------------------------}

    tbc:=tcd/n;

    tbcd:=t/dem;

    tbca:=t1/dem1;

    writeln('trung binh cong cua ca day la: ',tbc:4:2);

    writeln('trung binh cong cua cac so duong la: ',tbcd:4:2);

    writeln('trung binh cong cua cac so am la: ',tbca:4:2);

    {--------------------cau-5--------------------------------}

    max:=0;

    for i:=1 to n do

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

    writeln('so lon nhat cua day la: ',max);

    writeln('chi so cua no la: ');

    dem2:=0;

    for i:=1 to n do

    if max=a[i] then

    begin

    inc(dem2);

    b[dem2]:=i;

    end;

    for i:=1 to dem2 do

    write(b[i]:4);

    {---------------------cau-6-----------------------------}

    writeln;

    min:=maxint;

    for i:=1 to n do

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

    writeln('so nho nhat cua day la: ',min);

    writeln('chi so cua no la: ');

    dem3:=0;

    for i:=1 to n do

    if min=a[i] then

    begin

    inc(dem3);

    c[dem3]:=i;

    end;

    for i:=1 to dem3 do

    write(c[i]:4);

    {-------------------------cau-7------------------------}

    writeln;

    dem4:=0;

    dem5:=0;

    for i:=1 to n do

    begin

    if a[i] mod 2=0 then inc(dem4);

    if a[i] mod 2=1 then inc(dem5);

    end;

    writeln('so luong so chan cua day la: ',dem4);

    writeln('so luong so le cua day la: ',dem5);

    readln;

    end.

      bởi Nhật Mai 19/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