Câu 1: cho m,ảng A gồm N phần tử thuộc kiểu nguyên dương ( N<= 500)? viết chương trình thực hiện tính tổng các số chia hết cho 3 hoặc cho 5 phải viết và sử dụng các ctrinh con sau trong ctrinh a) thủ tục nhập giá trị mảng A b) hàm kiểm tra số chia hết cho 3 Câu 2: 1 đoàn tàu gồm 6 toa toa 1 có 7 hành khách toa 2 có 17 hk toa 3 có 11hk toa 4 có 7 hk toa 5 có 9 hk toa 6 có 7 hk hãy viết ctrinh a) tính số hành khách TB của đoàn tàu b) đếm số toa có sống lượng hành khách lớn hơn số hành khách TB của cả đoàn tàu.

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.