Top 1000 câu hỏi thường gặp môn Tin học có đáp án (phần 1) hay nhất được biên soạn và chọn lọc giúp bạn ôn luyện và đạt kết quả cao trong bài thi môn Tin học.
Viết chương trình nhập Viết chương trình nhập mảng a gồm n số nguyên
Câu 47: Viết chương trình nhập Viết chương trình nhập mảng a gồm n số nguyên (n <= 100. Tính và đưa ra màn hình tổng các số chia hết cho số nguyên k).
Lời giải:
uses crt;
var a:array[1..100]of integer;
i,n,k,t:integer;
begin
clrscr;
write(‘Nhap n=’); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(a[i]);
end;
write(‘Nhap so k=’); readln(k);
t:=0;
for i:=1 to n do
if a[i] mod k=0 then t:=t+a[i];
writeln(‘Tong cac so chia het cho ‘,k,’ la: ‘,t);
readln;
end.
CÔNG TY TNHH ĐẦU TƯ VÀ DỊCH VỤ GIÁO DỤC VIETJACK
- Người đại diện: Nguyễn Thanh Tuyền
- Số giấy chứng nhận đăng ký kinh doanh: 0108307822, ngày cấp: 04/06/2018, nơi cấp: Sở Kế hoạch và Đầu tư thành phố Hà Nội.
2021 © All Rights Reserved.
