Question

viết chương trình nhập vào mảng 1 chiều A gồm có n phần tử là kiểu số nguyên 1=1000 cho biết trong mảng có bao nhiêu phần tử chia hết cho 3 xuất mảng và hiển thị kết quả

Answer 1

uses crt;

var a:array[1..100]of integer;

i,n,dem:integer;

begin

clrscr;

repeat

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

until (1<=n) and (n<=1000);

for i:=1 to n do 

  begin

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

end;

writeln('Mang ban vua nhap la: ');

for i:=1 to n do 

  write(a[i]:4);

writeln;

dem:=0;

for i:=1 to n do 

  if a[i] mod 3=0 then inc(dem);

writeln('So phan tu chia het cho 3 la: ',dem);

readln;

end.