Mảng A gồm bao nhiêu phần tử : For i:=1 to 6 Begin write('a[',i,']=');readln(a[i]);end;
Giả sử mảng a gồm các phần tử a[1]=1, a[2]=2, a[3]=3, a[4]=4, a[5]=5.
Xét đoạn chương trình sau:
S := 0;
For i :=1 to 5 do
If a[i] mod 2 = 1 then S := S+a[i];
Write(S);
Kết quả hiện ra màn hình là:
A. 9
B. S=6
C. 6
D. S=9
Giả sử biến mảng A có 5 phần tử và giá trị của các phần tử lần lượt là 1, 4, 7, 2, 6. Khi thực hiện câu lệnh sau: tb := 0; For i := 1 to 5 do tb := tb + A[i]; Giá trị của biến tb là bao nhiêu?
A. 20
B. 18
C. 21
D. 22
Giả sử biến mảng A có 5 phần tử và giá trị của các phần tử lần lượt là 1, 4, 7, 2, 6. Khi thực hiện câu lệnh sau: tb:= 0; For i:= 1 to 5 do tb := tb + A[i]; Giá trị của biến tb là bao nhiêu?
A. 20
B. 18
C. 21
D. 22
Giả sử biến mảng A có 5 phần tử và giá trị của các phần tử lần lượt là 1, 4, 7, 2, 6. Khi thực hiện câu lệnh sau:
tb:= 0;
For i:= 1 to 5 do tb := tb + A[i];
Giá trị của biến tb là bao nhiêu?
A. 20;
B. 18;
C. 21;
D. 22;
Giả sử biến mảng A có 5 phần tử và giá trị của các phần tử lần lượt là 1, 4, 7, 2, 6. Khi thực hiện câu lệnh sau:
tb:= 0;
For i:= 1 to 5 do tb := tb + A[i];
Giá trị của biến tb là bao nhiêu?
A. 20;
B. 18;
C. 21;
D. 22;
Giả sử mảng a gồm các phần tử a[1]=1, a[2]=2, a[3]=3, a[4]=4, a[5]=5.
Xét đoạn chương trình sau:
S := 0;
For i := 1 to 5 do
If a[i] mod 2 = 0 then S := S+a[i];
Write(S);
Kết quả hiện ra màn hình là:
A. S=6
B. 6
C. 9
D. S=9
Program bai; Var n,i: integer; A: Array[1..50]of integer; Begin Writa('nhap n='); Readln(n); For i:=1 to n do begin wrote ('A[' ,i, ']='); readln(A[i]); end; For i:=1 to n do if A[i]>0 then write(a[i], ' '); Readln; End. Mảng A trong chương trình trên có số phần tử tối đa là bao nhiêu
Để in các phần tử của mảng A, ta có thể sử dụng đoạn chương trình nào sau đây?
A. for i := 1 to n do write(a[i]:5);
B. for i := n downto 1 do readln(i);
C. for i := 1 to n do write(i:5);
D. for i := 1 to n do readln(a[i]);
A mới đúng nhé bạn
in ra thì phải write(a[i]:5) mới đúng
D là nhập rồi nhé bạn
Để nhập dữ liệu cho mảng a gồm 100 phần tử ra màn hình ta dùng câu lệnh: *
A.For i:= 1 to 100 do writeln(a[i]);
B For i:= 1 to 100 do readln(a[i]);