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(= 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.

 

[cuong276]

cách 1:

var i:byte;
      s:integer;
      a:array[1..10]of integer;
BEGIN
 for i:=1 to 10 do
  begin
   write('a[',i,']= ');
   readln(a[i]);
  end;
 s:=0;
 for i:=1 to 10 do
  if a[i] mod 2<>0 then s:=s+a[i];
 writeln('tong la: ',s);
 readln
END.

cách 2: cách này bạn làm mà không cần dùng mảng a

var i:byte;
      s,x:integer;
BEGIN
 s:=0;
 for i:=1 to 10 do
  begin
   write('a[',i,']= ');
   readln(x);
   if x mod 2<>0 then s:=s+x;
  end;
 writeln('tong la: ',s);
 readln
END.

đó là cách tính tổng số lẻ. số chẵn thì bạn làm tương tự