Câu 1 :

uses crt;
var a : array[1..100] of integer;
i,n,t : integer;
begin clrscr;
t:=0;
assign(input,'DULIEU.INP');
assign(output,'DULIEU.OUT');
reset(input); rewrite(output);
read(input,n);
for i:=1 to n do read(input,a[i]);
for i:=1 to n do if a[i] mod 5 <> 0 then t:=t+a[i];
write(output,t);
close(input); close(output);
readln
end.

Câu 2 :

uses crt;
var a : array[1..100] of integer;
i,n,t,j : integer;
begin clrscr;
t:=0; j:=0;
assign(input,'DULIEU.INP');
assign(output,'DULIEU.OUT');
reset(input); rewrite(output);
read(input,n);
for i:=1 to n do read(input,a[i]);
for i:=1 to n do if a[i] mod 2 <> 0 then begin
 j:=j+1;
 t:=t+a[i];
  end;
write(output,t/j);
close(input); close(output);
readln
end.

Câu 3 :

uses crt;
var a : array[1..100] of integer;
i,n,t,j : integer;
begin clrscr;
t:=0; j:=0;
assign(input,'DULIEU.INP');
assign(output,'DULIEU.OUT');
reset(input); rewrite(output);
read(input,n);
for i:=1 to n do read(input,a[i]);
for i:=1 to n do if a[i] mod 2 = 0 then begin
 j:=j+1;
 t:=t+a[i];
  end;
write(output,t/j);
close(input); close(output);
readln
end.

Bài 1.

uses crt;

var n,i,tong:longint; d:text; a:array[1..10000]of longint;

begin

clrscr;

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

      for i:=1 to n do

         begin

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

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

         end;

   assign(d,'DULIEU.out');rewrite(d);

      writeln(d,tong);

   close(D);

end.

Bài 2.

uses crt;

var n,i,tong,t:longint; d:text; a:array[1..10000]of longint;

begin

clrscr;

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

      for i:=1 to n do

         begin

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

            if a[i] mod 2=1 then begin inc(tong,a[i]); inc(t); end;

         end;

   assign(d,'DULIEU.out');rewrite(d);

      writeln(d,tong/t:0:5);

   close(D);

end.

Bài 3.

uses crt;

var n,i,tong,t:longint; d:text; a:array[1..10000]of longint;

begin

clrscr;

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

      for i:=1 to n do

         begin

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

            if a[i] mod 2=0 then begin inc(tong,a[i]); inc(t); end;

         end;

   assign(d,'DULIEU.out');rewrite(d);

      writeln(d,tong/t:0:5);

   close(D);

end.

Mình làm các điều kiện vào chỗ nhập luôn để không cần làm thêm vòng for.

Có gì chưa hiểu hay là chương trình mắc phải lỗi sai hay có bạn nào tìm ra cách nào hay,ngắn hơn thì để lại bình luận nhé.

:))))