Các câu hỏi tương tự
Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các công việc sau (a là mảng số có N phần tử)k : 1 ;for i : 2 to N do if a[i] a[k] then k : i; A. Tìm phần tử nhỏ nhất trong mảng B. Tìm phần tử lớn nhất trong mảng C. Tìm chỉ số của phần tử lớn nhất trong mảng D. Tìm chỉ số của phần tử nhỏ nhất trong mảng
Đọc tiếp
Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các công việc sau (a là mảng số có N phần tử)
k := 1 ;
for i := 2 to N do
if a[i] > a[k] then k := i;
A. Tìm phần tử nhỏ nhất trong mảng
B. Tìm phần tử lớn nhất trong mảng
C. Tìm chỉ số của phần tử lớn nhất trong mảng
D. Tìm chỉ số của phần tử nhỏ nhất trong mảng
Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các công việc sau (a là mảng số có N phần tử)k : 1 ;for i : 2 to N do if a[i] a[k] then k : i; A. Tìm phần tử nhỏ nhất trong mảng B. Tìm phần tử lớn nhất trong mảng C. Tìm chỉ số của phần tử lớn nhất trong mảng D. Tìm chỉ số của phần tử nhỏ nhất trong mảng
Đọc tiếp
Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các công việc sau (a là mảng số có N phần tử)
k := 1 ;
for i := 2 to N do
if a[i] < a[k] then k := i;
A. Tìm phần tử nhỏ nhất trong mảng
B. Tìm phần tử lớn nhất trong mảng
C. Tìm chỉ số của phần tử lớn nhất trong mảng
D. Tìm chỉ số của phần tử nhỏ nhất trong mảng
Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các công việc sau (a là mảng số có N phần tử)S : 0; For i : 1 to N do S : S+a[i]; A. In ra màn hình của mảng A B. Đếm các phần tử của mảng A C. Tính tổng các phần tử của mảng A D. Không thực hiện việc nào trong 3 việc trên
Đọc tiếp
Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các công việc sau (a là mảng số có N phần tử)
S := 0;
For i := 1 to N do S := S+a[i];
A. In ra màn hình của mảng A
B. Đếm các phần tử của mảng A
C. Tính tổng các phần tử của mảng A
D. Không thực hiện việc nào trong 3 việc trên
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. S6 C. 6 D. S9
Đọc tiếp
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ử 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. S6 B. 6 C. 9 D. S9
Đọc tiếp
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
Ai sửa giúp mình với type Myaray=array [0..9] of Integer; var i:Myaray;
s:String;
a,b:Integer;
begin
Write('nhap xau: ');
readln(s);
a:=0;
for b:=1 to length(s) do
while pos(i,s)<>0 do begin a:=a+1;
Write(a);
end;
while pos(i,s)=0 do write(a);
readln
end.
Cho đoạn chương trình sau:Var g:text; I:integer;Begin Assign(g, ‘C:DLA.txt’); Rewrite(g); For i:1 to 10 do If i mod 2 0 then write(g, i); Close(g); ReadlnEnd. Sau khi thực hiện chương trình trên, nội dung của tệp ‘DLA.txt’ gồm những phần tử nào? A. 2; 4; 6; 8; 10 B. 1; 3; 5; 9 C. 1; 3; 5; 7; 9 D. 4; 6; 8; 10
Đọc tiếp
Cho đoạn chương trình sau:
Var g:text;
I:integer;
Begin
Assign(g, ‘C:\DLA.txt’);
Rewrite(g);
For i:=1 to 10 do
If i mod 2 = 0 then write(g, i);
Close(g);
Readln
End.
Sau khi thực hiện chương trình trên, nội dung của tệp ‘DLA.txt’ gồm những phần tử nào?
A. 2; 4; 6; 8; 10
B. 1; 3; 5; 9
C. 1; 3; 5; 7; 9
D. 4; 6; 8; 10
Cho đoạn chương trình sau:Var g:text; I:integer;Begin Assign(g, ‘C:DLA.txt’); Rewrite(g); For i:1 to 10 do If i mod 2 0 then write(g, i); Close(g); ReadlnEnd. Sau khi thực hiện chương trình trên, nội dung của tệp ‘DLA.txt’ gồm những phần tử nào? A. 2; 4; 6; 8;10 B. 1; 3; 5; 9 C. 1; 3; 5; 7; 9 D. 4; 6; 8; 10
Đọc tiếp
Cho đoạn chương trình sau:
Var g:text;
I:integer;
Begin
Assign(g, ‘C:\DLA.txt’);
Rewrite(g);
For i:=1 to 10 do
If i mod 2 <> 0 then write(g, i);
Close(g);
Readln
End.
Sau khi thực hiện chương trình trên, nội dung của tệp ‘DLA.txt’ gồm những phần tử nào?
A. 2; 4; 6; 8;10
B. 1; 3; 5; 9
C. 1; 3; 5; 7; 9
D. 4; 6; 8; 10
Cho đoạn chương trình sau:Var g:text; I:integer;Begin Assign(g, ‘C:DLA.txt’); Rewrite(g); For i:1 to 10 do If i mod 2 0 then write(g, i); Close(g); ReadlnEnd. Sau khi thực hiện chương trình trên, nội dung của tệp ‘DLA.txt’ gồm những phần tử nào? A. 2; 4; 6; 8;10 B. 1; 3; 5; 9 C. 1; 3; 5;7; 9 D. 4; 6; 8;10
Đọc tiếp
Cho đoạn chương trình sau:
Var g:text;
I:integer;
Begin
Assign(g, ‘C:\DLA.txt’);
Rewrite(g);
For i:=1 to 10 do
If i mod 2 = 0 then write(g, i);
Close(g);
Readln
End.
Sau khi thực hiện chương trình trên, nội dung của tệp ‘DLA.txt’ gồm những phần tử nào?
A. 2; 4; 6; 8;10
B. 1; 3; 5; 9
C. 1; 3; 5;7; 9
D. 4; 6; 8;10
Cho đoạn chương trình sau:Var g:text;I:integer;Begin Assign(g, ‘C:DLA.txt’); Rewrite(g); For i:1 to 10 do If i mod 2 0 then write(g, i); Close(g); ReadlnEnd. Sau khi thực hiện chương trình trên, nội dung của tệp ‘DLA.txt’ gồm những phần tử nào? A. 2; 4; 6; 8;10 B. 1; 3; 5; 9 C. 1; 3; 5;7; 9 D. 4; 6; 8;10
Đọc tiếp
Cho đoạn chương trình sau:
Var g:text;
I:integer;
Begin
Assign(g, ‘C:\DLA.txt’);
Rewrite(g);
For i:=1 to 10 do
If i mod 2 <> 0 then write(g, i);
Close(g);
Readln
End.
Sau khi thực hiện chương trình trên, nội dung của tệp ‘DLA.txt’ gồm những phần tử nào?
A. 2; 4; 6; 8;10
B. 1; 3; 5; 9
C. 1; 3; 5;7; 9
D. 4; 6; 8;10