Tin học [tin8] viết chương trình

[Erza Scarlet.]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình nhập vào một mảng n số nguyên, sau đó tính tổng các số chẵn và tổng các số lẽ của mảng.Với n nhập từ bàn phím.

 

[ka1412]

Mình viết phần chính thôi nhé:

for i:=1 to n do
if a[i] mod 2 =0 then s1:=s1+a[i] else s2:=s2+a[i];

 

[LiLi Nguyễn]

Viết chương trình nhập vào một mảng n số nguyên, sau đó tính tổng các số chẵn và tổng các số lẽ của mảng.Với n nhập từ bàn phím.

Program bai_tap;
USes Crt;
Var so : array [1.. 100] of integer;
n, i , Duong, am: Integer;
Begin
Clrscr;
Writeln (' do day cua day so N' ); readln (N) ;
Writeln(' nhap cac so Nguyen ');
For i:=1 to n do
Begin writeln('so[',i,']='); readln (so=); end;
Duong:=0; am:=0;
For i:=1 to n do
If so MOD 2= 0 then duong:= Duong + so else am:=am + so;
Writeln ( ' tong so am la:',am);
Writeln ( ' tong so Duong la:',Duong) ;
Readln
End.

 

[ka1412]

Program bai_tap;
USes Crt;
Var so : array [1.. 100] of integer;
n, i , Duong, am: Integer;
Begin
Clrscr;
Writeln (' do day cua day so N' ); readln (N) ;
Writeln(' nhap cac so Nguyen ');
For i:=1 to n do
Begin writeln('so[',i,']='); readln (so=); end;
Duong:=0; am:=0;
For i:=1 to n do
If so MOD 2= 0 then duong:= Duong + so else am:=am + so;
Writeln ( ' tong so am la:',am);
Writeln ( ' tong so Duong la:',Duong) ;
Readln
End.

Mình nghĩ bạn cho luôn vòng lặp vào chỗ nhập thì nhanh hơn(nhập xong kt r cộng luôn)

 

[LiLi Nguyễn]

Mình nghĩ bạn cho luôn vòng lặp vào chỗ nhập thì nhanh hơn(nhập xong kt r cộng luôn)

Như vậy cũng đúng mà bạn.

 

[ka1412]

Như vậy cũng đúng mà bạn.

Đúng thì vẫn đúng nhưng m không muốn gọi 2 lần vòng lặp thôi =)