Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
III:
A: var a:array[1..50]of real;
B: a[5]:=8;
C: var a:array[1..50]of integer;
D: readln(dem[2]);
Câu 1: C
Câu 2: A
Câu 3: B
Câu 4: A
Câu 5: C
Câu 6: A
Câu 7: C
Câu 9: D
Câu 10: A
For i:=1 to 10 do writeln('A'); Đúng
Var x; array[5...10]of char; Sai
Sửa lại: var x:array[5..10]of char;
a, sai vì dấu "," phải được thay bằng ".."
b, c, sai vì chỉ số đầu và cuối đều phải kiểu nguyên
d, sai vì chỉ số đầu phải nhỏ hơn chỉ số cuối
e, đúng
a) thiếu dấu ; ở cuối
sửa: for i:=1 to 10 do writeln ('A');
b) sau X ko phải có; mà có : từ 5.. 10 có 2 dấu chấm dư 1 dấu
sửa: var X: array [5..10] of char;
b) thiếu dấu ; ở cuối câu lệnh
sửa: X:=10; while X=10 do X:=X+5;
d) giá trị đầu và gia trị cuối của câu lệnh phải là só nguyên
sửa: for i:=1 to 10 do writeln('A');
a) Var X : Array [1;50] of integer; (sai cách khai báo mảng)
-> Var X : Array [1..50] of integer;
b) Var X : Array [5..50.5] of real; (sai vì chỉ số là số thực)
-> Var X : Array [5..50] of real;
c) For i: 1,5 to 10 do write ('A'); (sai vì giá trị đầu là số thực)
-> For i: 1,5 to 10 do write ('A');
d) For i: 1 to ; 10 do write ('A'); (sai vì sau to có dấu ; và sau i: thiếu dấu =)
->For i:= 1 to 10 do write ('A')
e) While x:=10 do x:=x+5; (điều kiện sai, đây là phép gán không phải điều kiện)
-> While x=10 do x:=x+5;