Viết chương trình in ra màn hình điểm thi môn tin học của 20 bạn học sinh lớp 7A

0 bình luận về “Viết chương trình in ra màn hình điểm thi môn tin học của 20 bạn học sinh lớp 7A”

1. program diem_thi;

   uses crt;

   var A:array[1..20] or real;

        i:integer;

   begin

         clrscr;

         for i:=1 to n do

               begin

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

               end;

         writeln(‘DIEM THI THEO THU TU LA:’);

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

         readln;

   end.

   Bình luận

2. uses crt;
   var i:byte; a:array[1..100]of byte; 
   begin
   clrscr;
      for i:=1 to 20 do 
         begin
            write(‘Nhap diem thi mon tin hoc cua ban thu ‘,i,’: ‘);readln(a[i]);
         end;
      write(‘Diem cua cac ban: ‘);
      for i:=1 to 20 do write(a[i],’ ‘);
   readln
   end.

   Bình luận