viết ct nhập vào số lượng của lớp 8a18, hãy nhập điểm cho từng học sinh ở trong lớp

0 bình luận về “viết ct nhập vào số lượng của lớp 8a18, hãy nhập điểm cho từng học sinh ở trong lớp”

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

         i,n:byte;

   begin

    write(‘so hoc sinh:’);readln(n);

   for i:=1 to n do begin

    write(‘diem cua hoc sinh thu ‘,i,’:’);readln(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 so luong: ‘);  readln (n);

   for i:=1 to n do

   begin

   write (‘nhap dien hs ‘,i,’: ‘);  readln (a[i]);

   end;

   readln;

   end.

   Bình luận