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.
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 :<
(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;
- 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.