Bài 1 Dạng 3:
Program BTT;
Uses crt;
Var A: array[1..5] of longint;
i,s: longint;
Begin
Clrscr;
s:=0;
Begin
Randomize;
For i:=1 to 5 do
A[i]:=Random(1000);
If (A[i] mod 2 = 0) and (A[i] mod 4 <> 0) then s:=s+A[i];
End;
For i:=1 to 5 do Write(A[i],' ');
Writeln;
Write('S = ',s);
Readln
End.