![](https://rs.olm.vn/images/avt/0.png?1311)
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
Hoc24 vừa cập nhật cứ sao sao ấy, ko cập nhật ảnh bìa với ảnh đại diện được :<
![](https://rs.olm.vn/images/avt/0.png?1311)
(2) write(‘hay nhap so hoc sinh trong lop :’);
(1) readln(N);
(3) write(‘nhap chieu cao cua tung ban tinh theo m’);
(6) for i:=1 to N do
(4) begin
(7) read (a[I]);
(8) write (a’[‘,i,’]=')
(5) end;
![](https://rs.olm.vn/images/avt/0.png?1311)
- Cú pháp: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
- Giải thích:
+ Từ khóa: for, to, do
+ Biến đếm: kiểu nguyên
+ Giá trị đầu, giá trị cuối: giá trị nguyên (giá trị đầu < giá trị cuối)
+ Câu lệnh trong vòng lặp không làm thay đổi giá trị của biến đếm
+ Số lần lặp: giá trị đầu - giá trị cuối + 1
- Hoạt động:
+ Biến điếm sẽ nhận giá trị bằng giá trị đầu
+ Sau mỗi vòng lặp, biến đếm tăng thêm một đơn vị cho đến khi bằng giá trị cuối thì kết
thúc lệnh lặp
- Ví dụ:
for i:= 1 to 5 do write('Tin hoc');
Câu 1
Var a:array[1..1000] of real;
s:real;
i,n:integer;
Begin
Write('n = ');readln(n);
s:=1;
For i:=1 to n do
Begin
Write('Nhap so thu ',i);readln(a[i]);
If a[i] > 0 then s:=s*a[i];
End;
Write('Tich la ',s:10:2);
Readln
End.
Câu 4:
Var a:array[1..1000] of integer;
s:longint;
i,n:integer;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i);readln(a[i]);
If a[i] > 0 then s:=s+a[i];
End;
Write('Tong la ',s);
Readln
End.