SỬ dựng ngôn ngữ lập trình pascal, viết chương trình nhập từ bàn phím số nguyê nguyên ứng n và dãy A gồm N sống nguyên A1,A2,…ĂN hãy tính tổng các phần tử trong dãy A có giá trị chia hết cho 3 và 5 và xuất kết quả ra màn hình
Giúp mình với????????
SỬ dựng ngôn ngữ lập trình pascal, viết chương trình nhập từ bàn phím số nguyê nguyên ứng n và dãy A gồm N sống nguyên A1,A2,…ĂN hãy tính tổng các phần tử trong dãy A có giá trị chia hết cho 3 và 5 và xuất kết quả ra màn hình
Giúp mình với????????
uses crt;
var a: array[1..100] of integer;
i,n,s: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap a[‘,i,’]: ‘); readln (a[i]);
if (a[i] mod 3=0) and (a[i] mod 5=0) then s:=s+a[i];
end;
writeln (‘tong cac so trong day chia het cho 3 va 5 la: ‘,s);
readln;
end.