Question

Answer 1

bài 21:

program(tên bạn tự đặt nha);

uses crt;
var a:array[1..100] of integer;
i,n:byte;
begin
clrscr; {đoạn này bạn muốn nhập cho đẹp thì nhập không thì thôi nha}
write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('Nhap a[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 5 =0 then write('co ', a[i], ' so chia het cho 5' );
readln;
end.

bài 22:

program tinhtong;

uses crt;

var i, n : integer; T : real;

begin

clrscr;

writeln('Nhap so thu n: ');

readln(n);

S:=0;

i:=1;

while i<=n do

begin

S:=S+1/i;

i:=i+1;

end;

writeln('Tong la: ', T:2:3);

readln;

end.

Answer 2

Câu 21: 

uses crt;

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

i,n,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

dem:=0;

for i:=1 to n do 

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

writeln(dem);

readln;

end.