Viết chương trình Nhập một dãy số nguyên có N phần tử Xuất ra màn hình dãy số vừa nhập Tính tích các phần tử chia hết cho 5 trong dãy trên và xuất

0 bình luận về “Viết chương trình Nhập một dãy số nguyên có N phần tử Xuất ra màn hình dãy số vừa nhập Tính tích các phần tử chia hết cho 5 trong dãy trên và xuất”

1. Program BTH;
   uses crt;
   var a: array [1..100] of longint;
   i,n,s:longint;
   begin
           clrscr;
           write(‘Nhap n: ‘);readln(n);
           s:=1;
           for i:=1 to n do
           begin
                   write(‘a[‘,i,’]: ‘);readln(a[i]);
                   If a[i] mod 5=0 then s:=s*a[i];
           end;
           writeln(‘Tich cac phan tu chia het cho 5 co trong day la: ‘,s);
           readln;
   end.

   Bình luận

2. program oken;

   uses crt;

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

         i,n,s:integer;

   begin

   clrscr;

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

   for i:=1 to n do

       begin

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

        end;

   s:=1;

   for i:=1 to n do

      if a[i] mod 5 then s:=s*a[i];

   writeln(‘tich cac phan tu chia het cho 5: ‘,s);

   readln;

   end.

   Bình luận