Viết 1 chương trình thực hiện các yêu cầu sau 1) Nhập vào dãy n số tự nhiên bất kì nhỏ hơn 50 từ bàn phím 2) tính tổng và trung bình cộng các phần tử

Viết 1 chương trình thực hiện các yêu cầu sau 1) Nhập vào dãy n số tự nhiên bất kì nhỏ hơn 50 từ bàn phím 2) tính tổng và trung bình cộng các phần tử của dãy số 3) in ra màn hình số lớn nhất trong dãy số ở trên 4) in ra màn hình số bé nhất trong dãy số ở trên

0 bình luận về “Viết 1 chương trình thực hiện các yêu cầu sau 1) Nhập vào dãy n số tự nhiên bất kì nhỏ hơn 50 từ bàn phím 2) tính tổng và trung bình cộng các phần tử”

  1. uses crt;

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

    i,n,j,t: integer;

    begin

    clrscr;

    write (‘nhap n: ‘);  readln (n);

    for i:=1 to n do

    begin

    write (‘nhap pt thu ‘,i,’: ‘);  readln (a[i]);

    end;

    for i:=1 to n-1 do

    for j:=i+1 to n do

    if a[i]>a[j] then

    begin

    t:=a[i];

    a[i]:=a[j];

    a[j]:=t;

    end;

    write (‘day tang dan: ‘);

    for i:=1 to n do write (a[i],’  ‘);

    readln;

    end.

    Bình luận

Viết một bình luận