Bài 11: Kiểu mảng
Các câu hỏi tương tự
Để 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]);
Cho khai báo mảng Var A: Array[1..10000] of integer; n, i: word; Begin Readln(n); For i:=1 to n do read(A[i]); End. Chương trình trên thực hiện công việc nào
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
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
For i := 1 to T do
Begin
Write ( 'hay nhap gia tri so thuv',i,' la:');
Readln ( M[i] ) ;
End ;
Đoạn chương trình này làm gì
cho mảng A gồm n phần tử nguyên dương (n<=10^5, A(i)<=10^6)
-nhập ngẫu nhiên mảng A
1. Tìm kiếm 3 phần tử lớn nhất trong mảng A
2. Tìm kiếm 100 phần tử nhỏ nhất trong mảng A
3. Tìm kiếm 10000 phần tử nhỏ nhất A
4. Sắp xếp tăng dần A
5. Tìm đoạn liên tục có tổng nhỏ hơn 10000 dài nhất
ai giúp mk với đag cần gấp ;))
Xem chi tiết
Đề bài: viết chương trinh thực hiện: a) Nhập N nguyên dương b) Tạo mảng A và B gồm N phần tử, mỗi phần từ ngẫu nhiên nguyên đương <20
c) Tạo mảng C, mỗi phần tử của mảng Clå trị tuyệt đổi của hiệu hai phần tử A[i] – B[i]j tương ứng.
d) In 3 màng A, B, C ra mản hình.
Nhập vào mảng A gồm n số nguyên (n<=1000), hãy viết chương trình tạo ramảng B cũng gồm n phần tử, sao cho B[i] là tổng của i phần tử đầu tiên của A.