B nha
phải là write('A[',i,']='); readln(A[i]);
Đúng 0
Bình luận (0)
Các câu hỏi tương tự
Câu 21:Câu lệnh nào dùng để nhập giá trị cho phần tử của mảng từ bàn phím
A.readln(i);
B.readln a(i);
C. readln (a[i]);
D, readln a[i];
Program bai; Var n,i: integer; A: Array[1..50]of integer; Begin Writa('nhap n='); Readln(n); For i:=1 to n do begin wrote ('A[' ,i, ']='); readln(A[i]); end; For i:=1 to n do if A[i]>0 then write(a[i], ' '); Readln; End. Biến n,i trong chương trình trên dùng dể làm gì?
Program bai; Var n,i: integer; A: Array[1..50]of integer; Begin Writa('nhap n='); Readln(n); For i:=1 to n do begin wrote ('A[' ,i, ']='); readln(A[i]); end; For i:=1 to n do if A[i]>0 then write(a[i], ' '); Readln; End. Mảng A trong chương trình trên có số phần tử tối đa là bao nhiêu
Cho biết chức năng của lệnh for i:=1 to n do begin write('A[',i,']=') readln(A[i]); end;
II. TU LUAN (64) Câu 9 (1.5 điểm). Chỉ ra lỗi sai trong các chương trình dưới đây và sửa lại cho đúng
(C) program tinh_a_mu_ng
var i,n: integer;
a, gia tri: real;
begin
write ('Cho so a: ');readln(a);
write ('Cho so mu n:');readin(n)
i :=1 giatri := 1 ;
while i < n do
begin
giatri :=giatri* a;
i:= i + 2
end;
writeln('a mu n bang : ", giatri);
end.
Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:
program So_Sanh;
usescrt;
var A, B= integer;
Begin
clrscr;
writeln(‘Nhap so A: ’); readln(A);
writeln(‘Nhap so B: ‘); readln(A);
if A <> B then writeln(A,’ khac ‘,B) else writeln(B,’ = ‘,A)
readln;
End.
Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:
program So_Sanh
uses crt;
var A B: integer;
begin
clrscr;
writeln(‘Nhap so A: ’) readln(A);
writeln(‘Nhap so B, khac so A: ‘); readln(B);
if A :> B then writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);
readln;
end.
Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:
Program So_Sanh;
uses crt
var A: B= integer;
Begin
clrscr;
writeln(‘Nhap so A: ’);
readln(B);
writeln(‘Nhap so B, khac so A: ‘);
readln(B);
if A > B then; writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);
readln;
End.
14 tháng 3 2022 lúc 20:22
Câu 6: Trong đoạn chương trình sau, có mấy câu lệnh được lặp lại?S : 0; dem : 0; n : 10;While dem n doBegindem : dem +1;Write(‘ Nhap so X’,dem,’’);Readln(X);S : S + X ;end;A. 0 B. 1 C. 3 D. 4 ét o ét bà con cô chú ơi ét o ét, ét o ét é é é é é
Đọc tiếp
Câu 6: Trong đoạn chương trình sau, có mấy câu lệnh được lặp lại?
S := 0; dem := 0; n := 10;
While dem > n do
Begin
dem := dem +1;
Write(‘ Nhap so X’,dem,’=’);Readln(X);
S := S + X ;
end;
A. 0 B. 1 C. 3 D. 4
ét o ét bà con cô chú ơi ét o ét, ét o ét é é é é é