Tin học 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 24/07/2021 By Alexandra 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 k cho trước với n= 3 và k=10
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. Trả lời
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!!! Trả lời