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ì?
K
Khách
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.
Những câu hỏi liên quan
KV
6 tháng 3 2023
Bài 1
Lỗi:
1) Program bai 1; => sửa: Program bai1;
2) Var x; n: integer; => sửa: Var x, n:integer;
3) X = 12 => sửa: x:=12;
-------------------
Bài 2
Lỗi
1) Program 2bai; => sửa: Program bai2;
2) Var i, n, s:integer;
3) S:=0 => sửa S:=0;
4) For i:=0,5 to n do => sửa: For i:=1 to 5 do
5) S=S+i; => sửa: S:=S+i;
c. 
= 
, 
= 
và 
cùng tác động vào một vât tại điểm M và đứng yên. Cho biết cường độ của 
= 
. Tìm cường độ và hướng của lực
13 tháng 4 2016
= 100√3 và 
ngược hướng với hướng 
với E là đỉnh thứ tư của hình bình hành MACB
17 tháng 5 2016
a) 
(x4 – x2 + x - 1) = x4(1 - 
) = +∞.
b) 
(-2x3 + 3x2 -5 ) = x3(-2 + 
) = +∞.
c) 
= 
= +∞.
d) 
= 
= 
= 
= -1.
ML
2 tháng 11 2021
Program bai tap 1; -> Program Bai_tap_1;
Uses CRT -> Uses CRT;
Var a;=integen; -> Var a: integer;
b;=real; -> b: real;
Constc;=3; -> Const c=3;
Begin
a:=200;
b:=a/c;
Readln;
End -> End.
NS
2 tháng 11 2021
Program bai tap 1; -> Program Bai_tap_1; Uses CRT -> Uses CRT; Var a;=integen; -> Var a: integer; b;=real; -> b: real; Constc;=3; -> Const c=3; Begin a:=200; b:=a/c;
6 tháng 6 2016
a) \(\sqrt[3]{27}-\sqrt[3]{-8}-\sqrt[3]{125}=\sqrt[3]{3^3}+\sqrt[3]{2^3}-\sqrt[3]{5^3}=3+2-5=0\)
b) \(\frac{\sqrt[3]{135}}{\sqrt[3]{5}}-\sqrt[3]{54}.\sqrt[3]{4}=\sqrt[3]{\frac{135}{5}}-\sqrt[3]{54.4}=\sqrt[3]{27}-\sqrt[3]{216}=3-6=-3\)
và
3 tháng 4 2016
< a < π => sina > 0, cosa < 0
cos2a = 
= ±
Nếu cos2a = 
thì
sina = 
= 
cosa = -
Nếu cos2a = - thì
sina = 
cosa = -
