Uses crt;

Var a:array[1..100] of integer;

n,i:integer;

Begin

writeln('nhap so hoc sinh: ');readln(n);

writeln('nhap diem');

for i:=1 to n do

begin

write('a[',i,']');readln(a[i]);

end;

for i:=1 to n do write('hoc sinh ',i,' duoc ',a[i],' diem mon tin');

readln;

end.

program ct;

uses crt;

var i,n:integer;

     A:array[1..100] of real;

begin

clrscr;

  write('nhap so hoc sinh=');readln(n);

     for i:=1 to n do

begin

   write('nhap diem tin A[',i,']:=');readln(A[i]);

end;

   writeln('so diem vua nhap la');

       for i:=1 to n do

           write(A[i],'  ');

readln

end.