Viết 1 chương trình thực hiện các yêu cầu sau 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ã … em c

Viết 1 chương trình thực hiện các yêu cầu sau 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ã … em cảm ơ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 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ã … em c”

  1. uses crt;

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

    i,n,s,max: integer;

    tbc: real;

    begin

    clrscr;

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

    for i:=1 to n do

    begin

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

    s:=s+A[i];

    end;

    max:=a[1];

    for i:=2 to n do

    if a[i]>max then max=a[i];

    tbc:=s/n;

    writeln (‘tong cua day so tren: ‘,s);

    writeln (‘trung binh cong cua day so tren: ‘,tbc:1:2);

    writeln (‘so lon nhat trong day: ‘,max);

    readln;

    end.

    Bình luận
  2. uses crt;

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

    i,n,t,m: integer;

    tb: real;

    begin

    clrscr;

    write (‘nhap so luong phan tu: ‘);  readln (n);

    for i:=1 to n do

    begin

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

    t:=t+a[i];

    end;

    max:=a[1];

    for i:=2 to n do

    if a[i]>max then max=a[i];

    tb:=t/n;

    writeln (‘tong cua day so tren: ‘,t);

    writeln (‘trung binh cong cua day so tren: ‘,tb:1:2);

    writeln (‘so lon nhat trong day: ‘,m);

    readln;

    end.

    Bình luận

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