Viết chương trình tình tổng N số nguyên lẽ nhập vào bàn phím

0 bình luận về “Viết chương trình tình tổng N số nguyên lẽ nhập vào bàn phím”

1. program ct;

   uses crt;

   var n,i,s:integer;

   A:array[1..100] of integer;

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   for i:=1 to n do

   begin

   write(‘nhap mang a[‘,i,’]:=’);readln(a[i]);

   end;

   s:=0;

   if a[i] mod 2=1 then s:=s+a[i];

   writeln(s);

   readln

   end.

   Bình luận

2. program oken;
   uses crt;
   var a: array [1..100] of longint;
       n,s,i: longint;
   begin
           clrscr;
           write(‘Nhap so phan tu cua mang: ‘); readln(n);
           s:=0;
           for i:=1 to n do
                   begin
                           write(‘A[‘,i,’]: ‘);
                           readln(A[i]);
                           if a[i] mod 2=1 then s:=s+a[i];
                   end;
           writeln(‘Tong cac phan tu le: ‘,s);
           readln;
   end.

   Bình luận