YOMEDIA
NONE

Viết chương trình nhập vào mảng số nguyên n phần tử với n được nhập từ bàn phím in ra màn hình tổng và tích của các phần tử chẳn và sắp xếp mảng theo thứ tự giảm dần?

Viết chương trình nhập vào mảng số nguyên n phần tử (n được nhập từ bàn phím)

a. In ra màn hình tổng và tích của các phần tử chẳn

b. In ra màn hình tổng và tích của các phần tử lẻ

c. Sắp xếp mảng theo thứ tự tăng dần

d. Sắp xếp mảng theo thứ tự giảm dần

GIẢI NHANH GIÙM MIK NHE CẦN GẤP \"ok\"

Theo dõi Vi phạm
ADSENSE

Trả lời (1)

  • Đoàn Thị Mỹ Duyên

    Bạn thử xem cách mình làm đc ko?

    ___________

    uses crt;
    var A:array[1..1000] of integer;
    n,i,tc,tl,z,j,e,tic,til,dem,d,dc,dl:integer;
    begin
    clrscr;
    Write('Nhap n: '); readln(n);
    for i:=1 to n do
    begin
    Write('Nhap phan tu thu ',i,' :'); readln(A[i]);
    end;
    i:=1;
    tc:=0;
    tl:=0;
    for d:=1 to n do if (A[d] mod 2=0) then dc:=dc+1 else dl:=dl+1;
    if (dc<>0) then tic:=1 else tic:=0;
    if (dl<>0) then til:=1 else til:=0;
    for i:=1 to n do if (A[i] mod 2=0) then
    begin
    tc:=tc+A[i];
    tic:=tic*A[i];
    end
    else
    begin
    tl:=tl+A[i];
    til:=til*A[i];
    end;
    Writeln('Tong cac phan tu chan la: ' ,tc);
    Writeln('Tich cac phan tu chan la: ' ,tic);
    Writeln('Tong cac phan tu le la: ' ,tl);
    Writeln('Tich cac phan tu le la: ' ,til);
    for e:=1 to (n-1) do
    for j:=e+1 to n do
    if A[e]>A[j] Then
    begin
    z:=A[e]; A[e]:=A[j]; A[j]:=z;
    end;
    Writeln('Day sau khi duoc sap xep tang dan la: ');
    for dem:=1 to n do Write(A[dem],' '); writeln;
    writeln('Day sau khi duoc sap xep giam dan la: ');
    for dem:=n downto 1 do write(A[dem],' ');
    readln;
    end.

      bởi Đoàn Thị Mỹ Duyên 08/11/2018
    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 8

 

YOMEDIA
AANETWORK
OFF