Giúp mik vs ạ đang cần gấp 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à

Giúp mik vs ạ đang cần gấp 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ã …

0 bình luận về “Giúp mik vs ạ đang cần gấp 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à”

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

          n,i,max:longint;

          s:real;

    begin

    read(n);

    for i:=1 to n do read(a[i]);

    for i:=1 to n do s:=s+a[i];

    max:=a[1];

    for i:=2 to n do

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

    writeln(‘tong day la: ‘,s:2:0);

    writeln(‘trung binh day: ‘,s/n:6:2);

    write(‘so lon nhat: ‘,max);

    end.

    Muốn xem kq nhấn đồng thời alt+f5 nhé!!!

    Đừng quên VOTE cho mình nhé !!! He he

    Bình luận

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