Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn LongVũ

Viết chương trình mảng A gồm N phần tử N=< 50 gía trị của mảng =<100 . Tính tổng phần tử chẵn( lẻ) của mảng
Giúp em với mai em thi ạ :3

Nguyễn Lê Phước Thịnh
17 tháng 6 2020 lúc 20:59

uses crt;
var a:array[1..50]of integer;
i,n,t,t1:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=50);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]<=100;
end;
t:=0;
t1:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then t:=t+a[i]
else t1:=t1+a[i];
end;
writeln('Tong cac so chan la: ',t);
writeln('Tong cac so le la: ',t1);
readln;
end.


Các câu hỏi tương tự
Huỳnh Thanh
Xem chi tiết
Nguyễn Quang Hà
Xem chi tiết
Yuki
Xem chi tiết
Nguyễn Hiếu
Xem chi tiết
an1114
Xem chi tiết
Nguyễn Văn Tú
Xem chi tiết
Trần Cương
Xem chi tiết
Anh Lan
Xem chi tiết
Lê thị khánh chi
Xem chi tiết