viết chương trình nhập từ bàn phím số nguyên dương n và dãy số từ a1, a2,…, an. In ra màn hình tổng các số chia hết cho 5 có trong dãy số.
viết chương trình nhập từ bàn phím số nguyên dương n và dãy số từ a1, a2,…, an. In ra màn hình tổng các số chia hết cho 5 có trong dãy số.
Program Hotboy;
Uses crt;
Var i,n:integer;
S:longint;
A:array[1..100] of integer;
Begin
clrscr;
S:=0;
Write(‘nhap n nguyen duong tu ban phim ‘);
Readln(n);
For i:=1 to n do
Begin
Write(‘ A[‘,i,’]’);readln(A[i]);
End;
For i:=1 to n do
If (A[i] mod 5=0) then
S:=S+A[i];
Write(‘ Tong cac so chia het cho 5 la ‘,S);
Readln
End.
uses crt;
var a:array[1..100] of integer;
i,n,s:integer;
begin
clrscr;
readln(n);
for i:=1 to n do begin write(‘a[‘,i,’]=’);
readln(a[i]);
end;
s:=0;
for i:=1 to n do if a[i] mod 5=0 then s:=s+a[i];
write(s);
readln
end.
cho mk 5sao+tlhn+cảm ơn nha