Cho đoạn chương trình:
s:=0;
for i:=1 to 50 do s:=s+i;
Kết thúc đoạn chương trình giá trị của biến s là:
A. 50 B. 1275
C. 50! D. Một kết quả
Đúng 0
Bình luận (0)
Tuyển Cộng tác viên Hoc24 nhiệm kì 26 tại đây: https://forms.gle/dK3zGK3LHFrgvTkJ6
Bài 11: Kiểu mảng
Các câu hỏi tương tự
Cho đoạn chương trình
s:=1;
for i:=1 to 3 do
for j:=1 to 3 do s:=s*2;
kết thúc đoạn chương trình trên biến s có giá trị
A. 512 B.128 C. 64 D.1024
Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau dùng để làm gì?
Var a:array[0..50] of real; i, k:byte;
Begin k:= 0;
for i:= 1 to 50 do
if a[i] > a[k] then k:= i;
writeln(k);
End.
A. Đếm số phần tử trong mảng a là số chẵn.
B. Đếm số phần tử trong mảng a là số lẻ.
C. Tính tổng các phần tử trong mảng a. D. Đếm các phần tử có trong mảng a.
Xem chi tiết
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 I1 to 5 do Begin Write(so nguyên thứ ,I); readln(a[I]); End; For I1 to 5 do If a[I]0 then writeln([a],, ); End.Select one:a. -2,-4,6b. 1,6,9c. -2,-4d. 1,-2,-4,6,9
Đọ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
Viết chương trình nhậo vào 1 dãy nguyên gồm N phần tử (N<=50). Tính tổng bình phương các phần tử là bội của 5 trong dãy số. Đưa kết quả ra màn hình.
Để 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]);
2. Sửa lỗi cú pháp cho chương trình trên nếu có. (1 điểm) Program KTC HK1; Ues Crt; Var a, S: Interger; Begin Writeln(‘Nhap a = ’) Readln(a); S:= sqrt(a); Writeln(‘S = ’ S); End.
Cho đoạn chương trình sau:
a: array[1..100] of integer;
m : 1;
for j : 1 to n do
if a[m] a[j] then
m : j;
writeln(‘Ket qua la: ’, m);
Biến m trong đoạn chương trình trên dùng để lưu giá trị là
A. giá trị nhỏ nhất của mảng.
B. giá trị lớn nhất của mảng.
C. chỉ số của phần tử có giá trị nhỏ nhất mảng.
D. chỉ số của phần tử có giá trị lớn nhất mảng.
Đọc tiếp
Cho đoạn chương trình sau:
a: array[1..100] of integer;
m := 1;
for j := 1 to n do
if a[m] <= a[j] then
m := j;
writeln(‘Ket qua la: ’, m);
Biến m trong đoạn chương trình trên dùng để lưu giá trị là
A. giá trị nhỏ nhất của mảng.
B. giá trị lớn nhất của mảng.
C. chỉ số của phần tử có giá trị nhỏ nhất mảng.
D. chỉ số của phần tử có giá trị lớn nhất mảng.
Viết chương trình tìm Min của dãy số nguyên a1,a2,...an đưa ra chỉ số của giá trị Min kết quả ghi lại ra tệp
Chương trình sau giải quyết vấn đề gì? Var a:array[1..4] of integer; Begin For i:1 to 4 do Begin Write(nhap cac phan tu A[,i,]:); readln (a[i]); End; For i:1 to 3 do For j: I+1 to 4 do If a[i] a[j] then Begin tg:a[i]; a[i]:a[j]; a[j]:tg; end; For I:1 to 4 do Write(a[i]); End.Select one:a. sắp xếp các phần tử của mảng theo tr...
Đọc tiếp
Chương trình sau giải quyết vấn đề gì?
Var a:array[1..4] of integer;
Begin
For i:=1 to 4 do
Begin
Write('nhap cac phan tu A[',i,']:');
readln (a[i]);
End;
For i:=1 to 3 do
For j:= I+1 to 4 do
If a[i]> a[j] then
Begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
For I:=1 to 4 do
Write(a[i]);
End.
Select one:
a. sắp xếp các phần tử của mảng theo trật tự tăng dần
b. Tìm Max
c. sắp xếp các phần tử của mảng theo trật tự giảm dần
d. Chương trình có lỗi