Question

Nhập độ dài mảnh để lưu điểm hs, nhập mảng điểm xuất mảng điểm

Answer 1

Tham khảo

uses crt;

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

i,n: integer;

begin

clrscr;

write ('Nhap do dai mang diem: ');  readln (n);

for i:=1 to n do

begin

write ('Nhap diem cua hoc sinh thu ',i,': ');  readln (diem[i]);

end;

writeln ('Xuat mang diem: ');

for i:=1 to n do writeln ('Diem cua hoc sinh thu ',i,': ',diem[i]:1:2);

readln;

end.