Chương trình sau in ra kết quả gì khi ta nhập các số 1,-2,-4,6,9 ? Var A:array[1..5] of integerl; I:intege; Begin For I=1 to 5 do Begin Write('so nguyên thứ ',I); readln(a[I]); End; For I=1 to 5 do If a[I]>=0 then writeln([a],', '); End.Select one:a. -2,-4,6b. 1,6,9c. -2,-4d....
Đọc tiếp
Chương trình sau in ra kết quả gì khi ta nhập các số 1,-2,-4,6,9 ?
Var
A:array[1..5] of integerl;
I:intege;
Begin
For I=1 to 5 do
Begin
Write('so nguyên thứ ',I);
readln(a[I]);
End;
For I=1 to 5 do
If a[I]>=0 then writeln([a],', ');
End.
Select one:
a. -2,-4,6
b. 1,6,9
c. -2,-4
d. 1,-2,-4,6,9
