viết chương trình sử dụng lệnh “For .. do” để tính giá trị trung bình của N số nguyên được nhập vào từ bàn phím

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

1. program oken;
   uses crt;
   var a: array [1..100] of integer;
       i,n,s:integer;
   begin
           clrscr;
           write(‘nhap so tu nhien can nhap: ‘); readln(n);
           s:=0;
           for i:=1 to n do
                   begin
                           write(‘nhap so tu nhien thu ‘,i,’: ‘); readln(a[i]);
                           s:=s+a[i];
                   end;
           writeln(‘TBC cua ‘,5,’ so tu nhien: ‘,s/n:0:3);
           readln;
   end.

   Bình luận

2. var a:array[1..100] of longint;

   n,i,tb: longint;

   begin

   read(n);

   for i:=1 to n do read(a[i]);

   s:=0

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

   tb:=0;

   tb:= s mod n;

   write(tb);

   end.

   Bình luận