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