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

program oken;

uses crt;

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

i:byte;

begin

clrscr;

writeln('nhap diem cua 20 ban hoc sinh');

for i:=1 to 20 do

begin

write('nhap diem ban thu ',i,': ');

readln(a[i]);

end;

write('diem cua 20 ban hoc sinh: ');

for i:=1 to 20 do

write(a[i],' ');

readln;

end.

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.

chúc bn học tốt