Nhập vào N số nguyên bất kì từ bàn phím, hày tính tổng các số.
chia hết cho 5, đưa kết quả tổng và dãy số vứa nhập ra màn hình?.
Nhập vào N số nguyên bất kì từ bàn phím, hày tính tổng các số.
chia hết cho 5, đưa kết quả tổng và dãy số vứa nhập ra màn hình?.
Program bai_tap ;
Uses crt ;
Var A: array [1..150] of integer ;
i,n,S: integer;
Begin
Write(‘nhap n=’);
Readln (n);
For i:=1 to n do
Begin
Write (‘nhap phan tu thu ‘,i,’ =’);
Readln (A[i]);
end;
S:=0;
Writeln (‘Cac so chia het cho 5 trong day la:’);
For i:=1 to n do
If A[i] mod 5=0 then
Begin
Write (A[i]:5);
S:=S +A[i];
end;
Writeln;
Writeln(‘Tong cac so chia het cho 5 trong day la:’, S);
Readln
End.
program oken;
uses crt;
var a: array [1..100] of integer;
i,n,s: integer;
begin
clrscr;
write(‘nhap so phan tu cua mang: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]: ‘);
readln(a[i]);
end;
write(‘cac so chia het cho 5 trong mang: ‘);
for i:=1 to n do
if a[i] mod 5=0 then
begin
s:=s+a[i];
write(a[i],’ ‘);
end;
writeln;
writeln(‘Tong cac so chia het cho 5: ‘,s);
readln;
end.