Trang chủ
Giải bài tập OnlineĐấu trường tri thức
Dịch thuật
Flashcard - Học & Chơi
Cộng đồngTrắc nghiệm tri thức
Khảo sát ý kiến
Hỏi đáp tổng hợp
Đố vui
Đuổi hình bắt chữ
Quà tặng và trang trí
TruyệnThơ văn danh ngôn
Xem lịchCa dao tục ngữXem ảnhBản tin hướng nghiệp
Chia sẻ hàng ngày
Bảng xếp hạngBảng Huy hiệuLIVE trực tuyếnĐề thi, kiểm tra, tài liệu học tập1.Viết chương trình sử dụng biến mạng nhập vào 1 dãy gồm n số( n được nhập từ bàn phím). Tìm giá trị nhỏ nhất hoặc lớn nhất trong dãy vừa nhập.
2. Viết chương trình sử dụng biến mạng nhập vào 1 dãy A gồm n số nguyên( n được nhập từ bàn phím). Tính tổng các số nguyên chia hết cho 5 có trong dãy.
3. Viết chương tình nhập điểm của các bạn trong lớp. Sau đó in ra màn hình số bạn đạt kết quả học tập loại giỏi, khá, trung bình và kém. (Theo tiêu chuẩn lớn hơn 8 điểm là giỏi, từ 6,5 đến 7,5 là khá, từ 5,0 đến 6,5 là trung bình, dưới 5 điểm là kém)
4. Viết chương trình tính tổng sau: S=1+ 1/2+ 1/3+...+1/n sử dụng lệnh while... do với n là số nguyên được nhập vào từ bàn phím
Bằng cách nhấp vào Đăng nhập, bạn đồng ý Chính sách bảo mật và Điều khoản sử dụng của chúng tôi. Nếu đây không phải máy tính của bạn, để đảm bảo an toàn, hãy sử dụng Cửa sổ riêng tư (Tab ẩn danh) để đăng nhập (New Private Window / New Incognito Window).
3
Program Phan_loai;
uses crt;
Var i, n, G, Kh, TB, K: integer;
A: array[1..100] of real;
Begin
clrscr;
write('Nhap so HS trong lop, n= ');
readln(n);
writeln('Nhap diem :');
For i:=1 to n do
Begin
write(i,' . ');
readln(a[i]);
End;
G:=0; Kh:= 0; TB:= 0; K:= 0;
for i:=1 to n do
Begin
if a[i] >= 8.0 then G:= G + 1;
if a[i] <5.0 then K:= K + 1; if (a[i] =6.5) then Kh:= Kh + 1;
if (a[i] >= 5 ) and (a[i] < 6.5) then TB:= TB + 1;
end;
writeln(' Ket qua hoc tap: ');
writeln(G, ' ban hoc gioi ');
writeln(Kh, ' ban hoc kha ');
writeln(TB, ' ban hoc trung binh');
writeln(K, ' ban hoc kem ');
Readln;
End.
Hôm nay bạn thế nào? Hãy nhấp vào một lựa chọn, nếu may mắn bạn sẽ được tặng 50.000 xu từ Lazi
| Vui | Buồn | Bình thường |
Trợ lý ảo
Trả lời nhanh trong 
Xem thêm 
Thưởng th.1.2025
Bảng xếp hạng
