Viết chương trình sử dụng biến mảng để tính giá trị trung bình của N số nguyên được nhập từ bàn phím

Viết chương trình sử dụng biến mảng để tính giá trị trung bình của N số nguyên được nhập từ bàn phím

0 bình luận về “Viết chương trình sử dụng biến mảng để tính giá trị trung bình của N số nguyên được nhập từ bàn phím”

  1. program bt;

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

          n,tb,dem: longint;

    writeln (‘nhap n’); readln (n);

    for i:= 1 to n do 

    begin

    writeln (‘nhap pt thu ‘ , i, ” );

    readln (a[i]);

    end;

    tb:= 0;

    for i:=1 to  n do

    begin

    tb := tb+a[i] ;

    dem:= dem+1;

    end;

    tb:= tb/dem;

    writeln (‘gia tri tb la’,tb);

    readln

    end. 

    Nho vote cho minh nha

    Bình luận

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