Bài này e thấy khó chỗ nào?

Nếu lời giải chính xác thầy cô sẽ tick GP cho e nhé!

Ngoài ra clb cũng có giải thưởng mỗi tháng cho những người tích cực nha

Cảm ơn mng đã tích cực tham gia HỎI ĐÁP CHUYÊN MÔN nhaaa !!

Nhưng có vẻ như nhiều người vẫn chưa nắm rõ thể lệ nhỉ, giờ mình sẽ tóm lại cho mng dễ nhớ nhe:

Một là bạn đăng topic để người khác ra đề cho bạn tự luyện.

Hai là bạn kiếm đề tự luận cho người đăng topic làm (đề trên mạng phải có chọn lọc, hoặc chụp đề có sẵn, hoặc mình tự cho đề nếu có đủ trình độ...)

Click vào đây để xem Topic mẫu

Khuyến khích mng tương tác, trao đổi bài với nhau để nhận phần thưởng hấp dẫn mỗi tháng nhé!

Test

program mang;
uses crt;
var n,i,chan, le,max,min: Integer;
a:array[1..100] of integer;
begin
write('nhap so phan tu ');read(n);
for i:=1 to n do
begin
write('nhap so thu ',i); readln(a[i]);
end;
max:=a[1]; min:=a[1]; chan:=0;le:=0;
for i:=1to n do
begin
if a[i] > max then max:=a[i];
if a[i] < min then min:=a[i];
if a[i] mod 2 = 0 then chan:=chan+1
else le:=le+1;
end;
writeln('max la: ',max);
writeln('min la: ',min);
writeln('so phan tu chan: ',chan);
writeln('so phan tu le: ',le);
readln
end.