Question

Viết chương trình nhập vào một mảng điểm học sinh và in ra màn hình số điểm đó

Answer 1

program DemSoDiem;
var n, i: integer;
  diem: array[1..100] of integer; // khai báo mảng điểm
  begin
  write('Nhap so luong hoc sinh: ');
  readln(n);
  // Nhập điểm cho từng học sinh
  for i := 1 to n do begin
    write('Nhap diem cua hoc sinh thu ', i, ': ');
    readln(diem[i]);
  end;
    // In ra số điểm dưới dạng Pascal
  writeln('const so_diem: array[1..', n, '] of integer = (', diem[1]);
  for i := 2 to n do begin
    write(', ', diem[i]);
  end;
  writeln(');');
end.