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

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 n học sinh và in ra màn hình. với n và điểm kiểm tra được nhập từ bàn phím”

1. program phuongt;
   uses crt;
      var A: array[1..500] of real;
            n, i: integer;
   begin
          clrscr;
          write(‘Nhap so hoc sinh: ‘); readln(n);
          for i:=1 to n do
          begin
                 write(‘Nhap diem kiem tra cua ban thu ‘, i, ‘: ‘); readln(A[i]);
          end;
          for i:=1 to n do
          begin
                 write(‘Diem kiem tra cua ban thu ‘, i, ‘: ‘, A[i]);
          end;
          readln
   end.

   Bình luận

2. Uses crt;
   Var A: array[1..1000] of real;
   i,n: integer;
   Begin
   Clrscr;
   Write(‘Nhap so luong hoc sinh vao: ‘); Readln(n);
   For i:=1 to n do
   Begin
   Write(‘Nhap diem cua ban a[‘,i,’]= ‘); Readln(a[i]);
   End;
   Writeln;
   For i:= 1 to n do
   Begin
   Write(‘ Diem kiem tra cua ban a[‘,i,’] = ‘,a[i]:3:1);
   Writeln;
   End;
   Readln
   End.

   Bình luận