Viết chương trình nhập dãy số nguyên A gồm N phần tử với N nhập vào từ bàn phím
a) In dãy số A ra màn hình, mỗi phần tử cách nhau một kí tự trống
b) Tính tổng các phần tử chia hết cho 3 mà không chia hết cho 5
giúp em vs mai em kt r
Viết chương trình nhập dãy số nguyên A gồm N phần tử với N nhập vào từ bàn phím
a) In dãy số A ra màn hình, mỗi phần tử cách nhau một kí tự trống
b) Tính tổng các phần tử chia hết cho 3 mà không chia hết cho 5
giúp em vs mai em kt r
program ct;
uses crt;
var i,n,S:integer;
A:array[1..100] of integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);
end;
writeln(‘day so vua nhap la’);
for i:=1 to n do
write(A[i],’ ‘);
S:=0;
for i:=1 to n do
if (A[i] mod 3=0) and (A[i] mod 5<>0) then S:=S+A[i];
writeln(‘tong la:’,S);
readln
end.
uses crt;
var A:array[1..1000] of integer;
i,N,S:longint;
begin
clrscr;
write(‘Nhap do dai day so: ‘);readln(N);
for i:=1to N do
begin
write(‘A[‘,i,’]=’);readln(A[i]);
end;
clrscr;
writeln(‘Cac phan tu trong mang:’);
for i:= 1 to N do write(A[i],’ ‘);
S:=0;
for i:= 1 to N do
if ((A[i]) mod 3 =0) and ((A[i]) mod 5 <>0) then S:=S+(A[i]);writeln;
writeln(‘Tong cac phan tu chia het cho 3 va khong chia het cho 5 la: ‘,S);
readln;
end.