Cho mảng B một chiều gồm M phần tử. Viết chương trinh nhập giá trị vào cho mảng, sau đó in ra màn hình các phần tử các phần tử có giá trị là chẵn và là bội của 4 có trong mảng.

program bai_giai;
uses crt;
var B:array[1..10000] of integer;
    m,i:integer;
begin
    clrscr;
    write('Nhap M: ');  readln(m);
    for i:=1 to m do
        begin
            write('B[',i,'] = ');  readln(B[i]);
        end;
    for i:=1 to m do
        if B[i] mod 4=0 then write(A[i],' ');
    readln;
end.

Như này đúng ko nhỉ=))))

uses crt;
var A:array[1..1000]of integer;
i,M:byte;
begin
clrscr;
  write ('Nhap M '); readln(M);
  for i:=1 to M do
  begin
  write('A[',i,']=');
  readln(A[i]);
  end;
  writeln;
  write('So can tim la ');
  for i:=1 to M do
  if (A[i] mod 4=0) then write(A[i],' ');
  readln
end.