Viết chương trình nhập vào mảng songuyen (≤ 100 phần tử). In ra màn hình mảng vừa nhập và tổng các phần tử là bội của 5?
1 câu trả lời
Uses crt;
Var i, n, tong: integer;
A:array[1..100] of integer;
Begin
Clrscr;
Write('Nhap n = '); readln(n);
For i:=1 to n do
Begin
Write('A[',i,']=');
Readln(a[i]);
End;
tong:=0;
For i:=1 to n do if a[i] mod 5 = 0 then inc(tong, a[i]);
Writeln('Tong cac phan tu la boi cua 5 la: ',tong:4:2);
Readln
End.
Câu hỏi trong lớp
Xem thêm
