Nhập mảng A gồm N phần tử (N<=10).Đếm và tính tổng các số lẻ < 45. Đưa kết quả ra màn hình

0 bình luận về “Nhập mảng A gồm N phần tử (N<=10).Đếm và tính tổng các số lẻ < 45. Đưa kết quả ra màn hình”

1. program oken;

   uses crt;

   var a: array [1..100] of integer;

        i,n,dem,sum:longint;

   begin

   clrscr;

   write(‘nhap so phan tu cua mang: ‘); readln(n);

   dem:=0; sum:=0;

   for i:=1 to n do

      begin

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

        if (a[i] mod 2 = 1) and (a[i]<45) then

                  begin

                      dem:=dem+1;

                      sum:=sum+a[i];

                   end;

      end;

   writeln(‘trong mang co ‘,dem,’ phan tu le(<45) va tong=’,tong);

   readln;

   end.

   Trả lời

2. Program BTH;
   uses crt;
   var a:array[1..100000] of longint;
   n,i,dem,s:longint;
   Begin
           clrscr;
           write(‘Nhap n: ‘);readln(n);
           For i:=1 to n do
           Begin
                   write(‘a[‘,i,’]: ‘);readln(a[i]);
                   If (a[i] mod 2=1) and (a[i]<45) then
                   Begin
                           s:=s+a[i];
                           dem:=dem+1;
                   end;
           end;
           writeln(‘So luong so le va nho hon 45 co trong day la: ‘,dem);
           writeln(‘Tong so le va nho hon 45 co trong day la: ‘,s);
           readln;
   end.

   Trả lời