Bạn Nam được thầy giáo giao cho N bài tập về nhà, mỗi bài tập có mức độ khó khác nhau được đánh giá bởi giá trị a[i]. Để làm được bài tập thứ i thì bạn An cần phải có kĩ năng lớn hơn hoặc bằng mức độ khó a[i]. Mỗi khi làm được bài độ khó là a[i] thì kĩ năng giải bài tập của cậu được tăng thêm một bậc lượng là a[i]. Ban đầu kĩ năng làm bài của An là S. Yêu cầu: Hãy cho biết An có thể giải được tối đa bao nhiêu bài tập. Dữ liệu vào: -Dòng 1 chứa N và S (1 ≤ N ≤ 100, S ≤ 1000) -Dòng 2 chứa N số nguyên a[1], a[2], a[3], ..., a[N]. Kết quả ra: -Một số nguyên duy nhất là số lượng bài tập lớn nhất mà An làm được. Viết CT bằng Pascal
1 câu trả lời
uses crt;
var a : array[1..100] of integer;
s, dem, i, n : integer;
begin
clrscr;
dem := 0;
write('nhap so luong bai tap :');readln(n);
write('nhap ki nang giai bai tap :');readln(s);
for i := 1 to n do
begin
write('nhap do kho bai thu ', i ,' : ');readln(a[i]);
if s >= a[i] then
begin
dem := dem + 1;
s := s + a[i];
end;
end;
writeln('so luong bai tap lon nhat ma An co the lam la :', dem);
readln
end.
