Viết chương trình nhập điểm học kì môn tin cho N học sinh và in ra màn hình. Với N là điểm kiểm tra được nhập từ bàn phím Mk đang cần gấp

0 bình luận về “Viết chương trình nhập điểm học kì môn tin cho N học sinh và in ra màn hình. Với N là điểm kiểm tra được nhập từ bàn phím Mk đang cần gấp”

1. 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 (‘nhap diem cua hoc sinh thu ‘,i,’: ‘);  readln (a[i]);

   end;

   writeln (‘diem vua nhap: ‘);

   for i:=1 to n do write (a[i],’  ‘);

   readln;

   end.

   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 (‘nhap diem cua hoc sinh thu ‘,i,’: ‘);  readln (a[i]);

   end;

   writeln (‘diem vua nhap: ‘);

   for i:=1 to n do write (a[i],’  ‘);

   readln;

   end.

   Bình luận

3. program bai_giai;

   uses crt;

   var A:array[1..1000] of real;

         n,i:integer;

   begin

         clrscr;

         write(‘Nhap N: ‘);  readln(n);

         for i:=1 to n do

               begin

                     write(‘Nhap diem thi ban thu ‘,i,’: ‘);  readln(A[i]);

               end;

         writeln(‘DANH SACH DIEM: ‘);

         for i:=1 to n do write(A[i]:0:2);

         readln;

   end.

   Bình luận