Question

viết phương trình nhập điểm của 39 học sinh. in ra số điểm của học sinh từ vị trí 5 đến 15 Cho biết: var hs:array[1..40] of real;

Answer 1

uses crt;

var hs:array[1..40]of real;

i:integer;

begin

clrscr;

for i:=1 to 39 do 

  begin

write('Diem cua ban thu ',i,' la: '); readln(hs[i]);

end;

for i:=5 to 15 do 

  writeln('Ban thu ',i,' co ',hs[i],' diem');

readln;

end.