Viet khai báo cho
a, biến mảng a gồm 50 phần tử có kiểu số nguyên
b, khai báo biến i;n có kiểu số nguyên
c khai báo hằng c=50;
Bằng cách nhấp vào Đăng nhập, bạn đồng ý Chính sách bảo mật và Điều khoản sử dụng của chúng tôi. Nếu đây không phải máy tính của bạn, để đảm bảo an toàn, hãy sử dụng Cửa sổ riêng tư (Tab ẩn danh) để đăng nhập (New Private Window / New Incognito Window).
uses crt;
var a:array[1..50]of integer;
i,k,t:integer;
begin
clrscr;
for i:=1 to 50 do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap so k='); readln(k);</p><p>t:=0;</p><p>for i:=1 to n do</p><p>if a[i] mod k=0 then t:=t+a[i];</p><p>writeln('Tong cac phan tu chia het cho ',k,' la: ',t);
readln;
end.
Hôm nay bạn thế nào? Hãy nhấp vào một lựa chọn, nếu may mắn bạn sẽ được tặng 50.000 xu từ Lazi
| Vui | Buồn | Bình thường |
AI Chat
Xem thêm 
Thưởng th.04.2026
Bảng xếp hạng
