Để nhập dữ liệu cho mảng a gồm 100 phần tử ra màn hình ta dùng câu lệnh: *
A.For i:= 1 to 100 do writeln(a[i]);
B For i:= 1 to 100 do readln(a[i]);
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.
1
a/ For i:=1,5 to 10.5 do s:=s+i;
=> For i:=1 to 10 do s:=s+i;
b/ Var X : array [100..1] of integer;
=>Var X : array [100..1] of integer;
c/ X:=1 ; while X:=10 do X:=X+5;
=>X:=1 ; while X=10 do X:=X+5;
d/For i:=1 to n do begin s:=s+i ; i:=i-1;
=>For i:=1 to n do begin s:=s+i ; i:=i-1;end;
2
a) X:ARRAY[1..50]OF INTEGER;
B) A[9]:=5;
C)DIEMTIN:ARRAY[1..100] OF REAL;
D) WRITE('DIEM TIN[5]:');READLN(DIEMTIN[5]);
Để nhập dữ liệu từ bàn phím cho mảng A có 10 phần tử là số nguyên ta dùng lệnh lặp với số lần biết trước là For..do, câu Readln (A[i]) là nhập dữ liệu từ bàn phím cho từng phần tử.
Đáp án: A
Uses crt;
var n,i: integer;
a: array[1..100] of longint;
begin clrscr;
readln(n);
for i:=1 to n do read(a[i]); readln;
writeln(a[i]:3);
readln;
end.
B
A