Viết chương trình nhập mảng A có N phần tử. Tính tổng giá trị các số là ước của 30 có trong mảng A.
1 câu trả lời
program tong;
Uses crt;
var
n,tong,i:integer;
A:array[1..1000] of integer;
Begin
Clrscr;
write('Nhap so phan tu: '); readln(n);
tong:=0;
For i:=1 to n do Readln(A[i]);
for i:=1 to n do If 30 mod A[i]=0 then tong:=tong+A[i];
write('Tong la: ',tong);
Readln;
End.
#HN
Câu hỏi trong lớp
Xem thêm
