Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Đặng Đức Nam

 Nhập vào một dãy số nguyên gồm n phần tử. Viết chương trình In ra màn hình tổng các số lẽ, số chẵn của dãy?                

Kiều Vũ Linh
20 tháng 4 2023 lúc 8:56

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

i,n:integer;

sc,sl:longint;

Begin

Write('Nhap so luong so cua day ');readln(n);

For i:=1 to n do

Begin

Write(a,'[',i,'] = ');readln(a[i]);

End;

Write('Tong cac so chan la ');

For i:=1 to n do

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

Writeln(sc);

Write('Tong cac so le la ');

For i:=1 to n do

If a[i] mod 2 <> 0 then sl:=sl+a[i];

Write(sl);

Readln

End.


Các câu hỏi tương tự
hà phương
Xem chi tiết
AETC丶NhấtㅤGG
Xem chi tiết
Mai Phương Lê
Xem chi tiết
Minh Duy
Xem chi tiết
8/1 Ngọc Hân
Xem chi tiết
kadydaucac
Xem chi tiết
Bùi duy anh
Xem chi tiết
Hắc Lang
Xem chi tiết
Ha Cam
Xem chi tiết