Viết chương trình nhập điểm 20 học sinh trong lớp học . In ra điểm đã nhập

0 bình luận về “Viết chương trình nhập điểm 20 học sinh trong lớp học . In ra điểm đã nhập”

1. program oken;

   uses crt;

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

   i:byte;

   begin

   clrscr;

   writeln(nhập điểm của 20 bạn học sinh);

   for i:=1 to 20 do

   begin

   write(‘ nhập điểm bán thứ ‘,i,’: ‘);

   readln(a[i]);

   end;

   write(‘điểm của 20 bạn học sinh: ‘);

   for i:=1 to 20 do

   write(a[i],’ ‘);

   readln;

   end.

   Bình luận

2. uses crt;

   var diem:array[1..20]of real;

   i:byte;

   begin

   clrscr;

   for i:=1 to 20 do 

     begin

   write(‘Diem cua ban thu ‘,i,’=’); readln(diem[i]);

   end;

   for i:=1 to 20 do 

     write(diem[i]:4:2,’ ‘);

   readln;

   end.

   Bình luận