tạo mảng a gồm n (n<=100) số nguyên, mỗi số có giá trị tuyệt đối không vượt quá 300. tính tổng các phần tử của mảng là bội số của một số nguyên dương

0 bình luận về “tạo mảng a gồm n (n<=100) số nguyên, mỗi số có giá trị tuyệt đối không vượt quá 300. tính tổng các phần tử của mảng là bội số của một số nguyên dương”

1. program tinhtong;

   uses crt;

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

         n,i,s,k:integer;

   begin

   clrscr;

   write(‘Nhap so luong phan tu n: ‘);    readln(n);

   writeln(‘NHAP GIA TRI TUNG PHAN TU CUA MANG’);

   for i:=1 to n do

    begin

     write(‘A[‘,i,’]= ‘);

     readln(A[i]);

    end;

   write(‘Nhap k: ‘);   readln(k);

   s:=0;

   for i:=1 to n do

     if A[i] mod k=0 then s:=s+A[i];

   write(‘Tong cac so trong mag la boi cua ‘,k,’ la: ‘,s);

   readln

   end.

   Bình luận

2. program tinhtongphantu;

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

         n,i,s,k:integer;

   begin

   write(‘Nhap so luong phan tu n: ‘);    readln(n);

   writeln(‘NHAP GIA TRI TUNG PHAN TU CUA MANG’);

   for i:=1 to n do

    begin

     write(‘A[‘,i,’]= ‘);

     readln(A[i]);

    end;

   write(‘Nhap k: ‘);   readln(k);

   s:=0;

   for i:=1 to n do

     if A[i] mod k=0 then s:=s+A[i];

   write(‘Tong cac so trong mag la boi cua ‘,k,’ la: ‘,s);

   readln

   end.

   Chúc bạn học tốt!!!

   Bình luận