huhu mọi người giúp mình với ạ, mình dốt tin lắm, yêuuuuu Viết chương trình theo yêu cầu sau: a). Nhập vào mảng số nguyên B. với số lượng phần tử N được nhập từ bàn phím (tối đa 100 phần tử). b). Tính và in ra màn hình tổng các phần tử có giá trị chia hết cho 5 trong mảng B
2 câu trả lời
program oken;
uses crt;
var b: array [1..100] of integer;
i,tong,n:integer;
begin
clrscr;
write('nhap so phan tu cua mang: '); readln(n);
for i:=1 to n do
begin
write('B[',i,']: '); readln(b[i]);
if b[i] mod 5=0 then tong:=tong+b[i];
end;
writeln('tong cac phan tu chia het cho 5: ',tong);
readln;
end.
Cho mình xin câu trả lời hay nhất nha
uses crt;
var b:array[1..100] of integer
i,n,tong:integer;
begin
clrscr;
write('nhap n: ');readln(n);
for i:=1 to n do
begin
write('b[',i,']='); readln(b[i]);
end;
for i:=1 to n do if b[i] mod 5=0 then tong:=tong+b[i];
write('tong cac phan tu chia het cho 5 la: ',tong);
readln
end.
