̃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 im_14424;

   uses crt;

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

   i,n: integer;

   tbc: real;

   begin 

   clrscr;

   writeln(‘Nhap vao n: ‘);

   read(n);

   s:=0;

   for i:=1 to n do

   begin

   write(‘Nhap A[‘,i,’]=’);

   readln(A[i]);

   end;

   s:=s+A[i];

   tbc:=s/n;

   end;

   writeln(‘Trung binh cong la: ‘,tbc:5:2);

   readln

   end.

   Bình luận

2. Uses Crt;
   Var i,n,s:integer; tbc:real;
   A:array[1..1000] of integer;
   Begin
   Clrscr;
   Write(‘Nhap n so nguyen vao:’); Readln(n);
   For i:=1 to n do
   Begin
   Write(‘Nhap A[‘,i,’]:=’); Readln(A[i]);
   End;
   S:=0;
   For i:=1 to n do
   Begin
   S:=S+A[i];
   tbc:=S/n;
   End;
   Writeln;
   Write(‘Trung binh cong cua n so nguyen la:’,tbc:2:2);
   Readln
   End.
   *Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhé! Thanks trước 😀

   Bình luận