Những câu hỏi liên quan
Phan Thùy Linh
Xem chi tiết
Minh Lệ
12 tháng 4 2022 lúc 20:42

In ra màn hình -> dùng lệnh write hoặc writeln

-> For i:=1 to 10 do writeln(diem[i]);

Bình luận (0)
Nguyễn Đăng Thanh
Xem chi tiết
Nguyễn Đăng Thanh
Xem chi tiết
Nguyễn Đăng Thanh
24 tháng 3 2022 lúc 15:33

giúp mik với

Bình luận (0)
Nguyễn Đăng Thanh
24 tháng 3 2022 lúc 15:34

?

 

Bình luận (0)
Học Đại
Xem chi tiết
nhattien nguyen
4 tháng 1 2022 lúc 11:48

1B

2D

Bình luận (1)
JinJin Chobi
Xem chi tiết
vothedien
27 tháng 6 2019 lúc 14:14

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]);

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
9 tháng 8 2018 lúc 9:38

Để 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

Bình luận (0)
Y Nhu
Xem chi tiết
nguyến duc khai
Xem chi tiết
Kim Thoa Le Thi
Xem chi tiết
HT.Phong (9A5)
13 tháng 4 2023 lúc 19:01

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ình luận (0)