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

0 bình luận về “Giúp em vs ạ em đang cần 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. uses crt;

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

   i,n,s: integer;

   tbc: real;

   begin

   clrscr;

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

   for i:=1 to n do

   begin

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

   s:=s+a[i];

   end;

   tbc:=s/n;

   writeln (‘tong la: ‘,s);

   writeln (‘trung binh cong la: ‘,tbc:1:2);

   readln;

   end.

   Bình luận

2. bài mẫu ạ :

   uses crt;
   var s,a,b:longint;
   begin
   clrscr;
      write(‘a,b=’);readln(a,b);
      s:=a*b;
      writeln(s);
   readln
   end.

   Bình luận