Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
SINH HOANG

GIÚP MÌNH VỚI: Viết ra trương trình nhập điểm môn Tin của các bạn trong lớp. Sau đó in ra màn hình điểm cao nhất và số thứ tự của bạn đạt điểm cao nhất

Ngô Bá Hùng
18 tháng 4 2023 lúc 14:18

program TimDiemCaoNhat;

var
  diem: array[1..30] of integer;
  i, diemCaoNhat, soThuTu: integer;

begin
  for i := 1 to 30 do
  begin
    write('Nhap diem cua ban thu ', i, ': ');
    readln(diem[i]);
  end;
  diemCaoNhat := diem[1];
  soThuTu := 1;
  for i := 2 to 30 do
  begin
    if diem[i] > diemCaoNhat then
    begin
      diemCaoNhat := diem[i];
      soThuTu := i;
    end;
  end;
  writeln('Diem cao nhat la: ', diemCaoNhat);
  writeln('Ban thu ', soThuTu, ' dat diem cao nhat.');
  
  readln;
end.


Các câu hỏi tương tự
Trần Triệu Vy
Xem chi tiết
Anh Hoàng
Xem chi tiết
Khue Nguyen
Xem chi tiết
Trúc Quỳnh
Xem chi tiết
Lê Nguyễn Ánh Nguyệt
Xem chi tiết
thiện nhân
Xem chi tiết
MON xuyênh gái
Xem chi tiết
eeedddd
Xem chi tiết
Lê Nguyễn Ánh Nguyệt
Xem chi tiết