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

A

annynhi456@gmail.com

C

cuong276

cách 1:
Mã:
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
Mã:
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ự
 
Top Bottom