Viết zùm mìh chương trình với. (Mai mình kiểm tra rồi)

[annynhi456@gmail.com]

[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(bằng ngôn ngữ PASCAL) thực hiện công việc nhập 10 phần tử có giá trị nguyên cho mảng A (mảng 1 chiều) từ bàn phím và tính tổng các phần tử lẻ(chẵn) có trong mảng A.@};-

 

[thanhphuong8100]

prorgam chan_le;
ues crt;
var A: array[1..10] of integer;
le,chan,i : integer;
begin
clrscr;
chan:=0; le:=0;
for i:=1 to 10 do
begin
write('Nhap A[',i,']: ');
readln(A);
if A mod 2=0 then chan:=chan+A else le:=le+A;
end;
writeln('Tong chan : ',chan);
writeln('Tong le : ',le);
readln;
end.
---------------------------------
Bạn chạy vòng lặp i đi từ 1 tới 10, thực hiện công việc nhập 10 phần tử cho mảng A. Sau khi việc nhập/gán, bạn xét phần tử đó xem là chẵn hay lẻ bằng cách mod cho 2 (nếu dư 0 là chẵn). Nếu là chẵn thì cộng dồn vào biến chẵn, trường hợp còn lại là lẻ thì cộng vào biến lẻ.

 

[minminseok]

var A: array[1..10] of integer;
      le,chan,i : integer;
begin
       clrscr;
       chan:=0; le:=0;
       for i:=1 to 10 do 
       begin
           write('Nhap A[',i,']: '); readln (A[i]);
           if A[i] mod 2=0 then chan:=chan+A[i] else le:=le+A[i];
       end;
      writeln('Tong cua cac so chan : ',chan);
      writeln('Tong cua cac so le : ',le);
    readln;
end.