Question

Viết chương trình nhập vào mảng số nguyên gồm 6 phần tử sau đó in ra màn hình tổng phần tử có giá trị là số chia hết cho 3 và 5

Answer 1

Uses crt;

Var a:array[1..6] of integer;

I,t:integer,

Begin

Clrscr;

For i:=1 to 6 do

Begin

Write('a[',i,']='); readln(a[i]);

End,

T:=0;

For i:=1 to 6 do

If (a[i] mod 3=0) and (a[i] mod 5=0) then t:=t+a[i];

Writeln(t);

Readln;

End.