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
Đúng 0
Bình luận (0)
Bài 11: Kiểu mảng
Các câu hỏi tương tự
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 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
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
Mảng A gồm bao nhiêu phần tử : For i:=1 to 6 Begin write('a[',i,']=');readln(a[i]);end;
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ì
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
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
For i := 1 to T-1 do
For j := i+1 to T do
Begin
If M [ i]>M[ j] then
Begin
Tg:= M[ i];
M[ i]:= M[j];
M[j]:=Ig;
End;
Đoạn chương trình này làm gì
Giả sử 4 số tự nhiên đầu tiên (1,2,3,4)đã được lưu trữ theo thứ tự vào mảng A, bắt đầu là A[1]. Đoạn lệnh Pascal sau đây sẽ viết ra các giá trị nào (theo thứ tự)?for i: 1 to 3 do write(3* a[i+1],’ ‘); Giả sử mảng A có các phần tử sau:2 4 5 6Lệnh Pascal write(a[2]); sẽ viết ra màn hình giá trị nào?Cho mảng a có 4 phần tử: 3 4 5 6. Lệnh : write(a[1]) in gì ra màn hình:giúp mk trước 5h chiều nay
Đọc tiếp
Giả sử 4 số tự nhiên đầu tiên (1,2,3,4)đã được lưu trữ theo thứ tự vào mảng A, bắt đầu là A[1]. Đoạn lệnh Pascal sau đây sẽ viết ra các giá trị nào (theo thứ tự)?
for i:= 1 to 3 do write(3* a[i+1],’ ‘);
Giả sử mảng A có các phần tử sau:
2 4 5 6
Lệnh Pascal write(a[2]); sẽ viết ra màn hình giá trị nào?
Cho mảng a có 4 phần tử: 3 4 5 6.
Lệnh : write(a[1]) in gì ra màn hình:
giúp mk trước 5h chiều nay