Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
19. Nguyễn Hà Bảo Ngân

Viết chương trình nhập vào từ bàn phím 1 mảng số nguyên                                                                             a. cho biết dãy số vừa nhập có bao nhiêu số chẵn                                                    b. cho biết dãy số vừa nhập có bao nhiêu số từ 1 đến 50                                       c. tính tổng các số đó

Kiều Vũ Linh
4 tháng 5 2022 lúc 17:09

Var a:array[1..200] of integer;

i,n,d1,d2,s:integer;

Begin

Write('Nhap so luong phan tu n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

End;

For i:=1 to n do

Begin

If a[i] mod 2 = 0 then d1:=d1+1;

If (a[i] > 0) and (a[i] < 51) then d2:=d2+1;

End;

Writeln('Co ',d1,' so chan');

Write('Co ',d2,' so tu 1 den 50');

Readln;

End.


Các câu hỏi tương tự
❤X༙L༙R༙8❤
Xem chi tiết
boymezu
Xem chi tiết
Tuấn Trần thị
Xem chi tiết
Trần Hà Thư
Xem chi tiết
Nhat thanh Tran
Xem chi tiết
Tuoi tom May
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Như Huỳnh
Xem chi tiết
Huỳnh Tiến Thiên
Xem chi tiết