Viết chương trình nhập điểm kiểm tra học kì môn tin học cho N học sinh và in các điểm đó ra màn hình

0 bình luận về “Viết chương trình nhập điểm kiểm tra học kì môn tin học cho N học sinh và in các điểm đó ra màn hình”

1. uses crt;
   var a:array[1..10000] of real;
          n,i:integer;
   begin
          clrscr;
          write(‘Nhap so luong hoc sinh: ‘); readln(n);
          for i:=1 to n do
                 begin
                        write(‘Nhap diem hoc sinh thu ‘,i,’: ‘); readln(a[i]);
                 end;
          write(‘Cac diem: ‘);
          for i:=1 to n do write(a[i],’ ‘);
          readln;
   end.

   Bình luận

2. uses crt;

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

   i,n:integer;

   begin

   clrscr;

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

   for i:=1 to n do 

     begin

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

   end;

   for i:=1 to n do 

     writeln(‘Diem cua ban thoa ‘,i,’ la: ‘,a[i]:4:2);

   readln;

   end. 

   Bình luận