Cho một dãy số A gồm N phần tử (n<200) Tính tổng các số lẻ

0 bình luận về “Cho một dãy số A gồm N phần tử (n<200) Tính tổng các số lẻ”

1. program chuogntrinh;
   var a:array[1..100] of integer;
        n,i,s:integer;
        begin
        writeln(‘nhap so phan tu’); readln(n);
        for i:=1 to n do
        readln(a[i]);
        s:=0;
        for i:=1 to n do
        if a[i] mod 2 <> 0 then
        s:=s+a[i];
        writeln(‘tong la ‘, s:4);
        readln;
        end.

   Bình luận

2. Program BT;
   Var n,i,t :longint;
       a : array [1..100] of longint;
   Begin
   repeat
   Write (‘Nhap N : ‘);Readln(n);
   until n > 0;
   t := 0;
   For i := 1 to n do
   Begin
   Write (‘A[‘,i,’]= ‘);REadln(a[i]);
   If a[i] mod 2 = 1 then t := t + a[i];
   end;
   Write (‘Tong la : ‘,t);
   end.

   Bình luận