câu 1:
program oken;
uses crt;
type mang = array [1..500] of integer;
var a: mang;
n: integer;
procedure nhap(n: integer);
var i: integer;
begin
for i:=1 to n do
begin
write('a[',i,']: ');
readln(a[i]);
end;
end;
function kq(a: mang;n: integer): integer;
var i,s: integer;
begin
for i:=1 to n do
if (a[i] mod 3=0) and (a[i] mod 5=0) then
s:=s+a[i];
kq:=s;
end;
begin
clrscr;
write('Nhap so phan tu cua mang: '); readln(n);
nhap(n);
write('Tong chia het cho 3 va 5: ',kq(a,n));
readln;
end.
câu 2:
program oken;
uses crt;
var a: array [1..6] of integer;
i,dem: byte;
tbc: real;
begin
clrscr;
tbc:=0;
writeln('Nhap so hanh khach cua 1 doan tau co 6 toa');
for i:=1 to 6 do
begin
write('Doan tau ',i,': ');
readln(a[i]);
tbc:= tbc+a[i];
end;
tbc:=tbc/6; dem:=0;
writeln('So hanh khach TB cua doan tau: ',tbc:0:3);
for i:=1 to 6 do
if a[i]>tbc then
dem:=dem+1;
writeln('so toa co song luong hanh khach lon hon so hanh khach TB cua ca đoan tau: ',dem);
readln;
end.