Question

nhập mảng số nguyên gồm N phần tử ( N<= 150) viết chương trình:

a) Liệt kê các phần tử lẻ trong mảng

b) Tính tổng phần tử chia hết cho 3 và chia hết cho 5 trong mảng

( ai giải giúp mình đi :< )

Answer 1

program hotrotinhoc;

var i,n: byte;

t: longint;

a: array[1..150] of integer;

begin

write('n='); readln(n);

t:=0;

for i:=1 to n do

begin

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

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

end;

writeln('Cac phan tu le trong mang : ');

for i:=1 to n do if a[i] mod 2=1 then write(a[i],' ');

writeln;

write('Tong phan tu chia het cho 3 va 5 la :',t);

readln

end.

Answer 2

uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-------------------------xu-ly------------------------}
writeln('cac so le trong day la: ');
for i:=1 to n do
if a[i] mod 2=1 then write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if (a[i] mod 3=0) and (a[i] mod 5=0) then t:=t+a[i];
writeln('tong cac phan tu chia het cho 3 va chia het cho 5 la: ',t);
readln;
end.