giúp em với đang cần gấp: viết chương trình tìm giá trị trung bình của dãy nhập từ bàn phím

giúp em với đang cần gấp:
viết chương trình tìm giá trị trung bình của dãy nhập từ bàn phím

0 bình luận về “giúp em với đang cần gấp: viết chương trình tìm giá trị trung bình của dãy nhập từ bàn phím”

  1. uses crt;

    var n,s: integer;

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

    begin

    clrscr;

    write(‘Nhap n= ‘); readln(n);

    for i:=1 to n do begin

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

    end;

    for i:=1 to n do s:=s+i;

    writeln(‘Tong la: ‘,s);

    readln;

    end.

    Bình luận
  2. program trung_binh;

    uses crt;

    var n,i:integer;

    tb:real;

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

    begin

    clrscr;

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

    writeln(‘nhap day so:’);

    for i:=1 to n do

    begin

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

    end;

    tb:=0;

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

    tb:=tb/n;

    write(‘trung binh cong cua day so vua nhap la:’,tb:2:2);

    readln;

    end.

    NOCOPPY

    Xin hay nhất@@

    Bình luận

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