YOMEDIA
NONE

Cho mảng A gồm có N phần tử các số nguyên không âm'N được nhập từ bàn phím'. Em hãy viết đoạn chương trình để thực hiện yêu cầu sau:

1.Nhập gtrị cho mảng A

2.Xuất gtrị mảng A ra màn hình

3.Tính tổng gtrị của mảng A

4.Tính tích gtrị của mảng A

5.Tính tổng gtrị các phần tử ở vị trí chẳn

6.Tính tích gtrị các phần tử ở vị trí lẻ

7.Sắp xếp mảng A thành mảng không giảm

8.In ra màn hình các phần tử có gtrị lớn hơn 10

9.Hoàn chỉnh các đoạn chương trình trên thành 1 chương trình pascal hoàn chỉnh.

Theo dõi Vi phạm
ATNETWORK

Trả lời (1)

  • Van Tho

    uses crt;

    var a:array[1..100]of longint;

    i,n,t,t1,tam,j:integer;

    s,s1:int64;

    begin

    clrscr;

    repeat

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

    until n>0;

    for i:=1 to n do

    begin

    repeat

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

    until a[i]>=0;

    end;

    writeln('Mang A=');

    for i:=1 to n do

    write(a[i]:4);

    writeln;

    t:=0;

    for i:=1 to n do

    t:=t+a[i];

    writeln('Tong gia tri cua mang A la: ',t);

    s:=1;

    for i:=1 to n do

    s:=s*i;

    writeln('Tich cac gia tri cua mang A la: ',s);

    t1:=0;

    for i:=1 to n do

    if i mod 2=0 then t1:=t1+a[i];

    writeln('Tong cac gia tri o vi tri chan la: ',t1);

    s1:=1;

    for i:=1 to n do

    if i mod 2<>0 then s1:=s1*a[i];

    writeln('Tich cac gia tri o vi tri le la: ',s1);

    for i:=1 to n-1 do

    for j:=i+1 to n do

    if a[i]>a[j] then

    begin

    tam:=a[i];

    a[i]:=a[j];

    a[j]:=tam;

    end;

    writeln('Mang A sau khi sap xep la: ');

    for i:=1 to n do

    write(a[i]:4);

    writeln;

    writeln('Cac phan tu co gia tri lon hon 10 la: ');

    for i:=1 to n do

    if a[i]>10 then write(a[i]:4);

    readln;

    end.

      bởi Van Tho 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