Dùng pascal ạ. mn giúp mình vs ạ
Những câu hỏi liên quan
Dùng pascal ạ mn giúp mình với ạ
Dùng pascal ạ mn giúp mình với!!!!!
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Đúng 0
Bình luận (0)
Tin pascal mn giúp mình với ạ
Lập trình pascal ạ
Mn giúp mình với
uses crt;
var a:array[1..200]of real;
i,n:integer;
tb:real;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
tb:=0;
for i:=1 to n do tb:=tb+a[i];
writeln(tb/n:4:2);
readln;
end.
Đúng 0
Bình luận (0)
Lập trình pascal ạ mn giúp mình với
uses crt;
var a:array[1..100]of real;
i,n,dem:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
dem:=0;
for i:=1 to n do
if a[i]>=8 then inc(dem);
writeln(dem);
readln;
end.
Đúng 0
Bình luận (0)
giúp mình bài này với ạ dùng pascal nha với làm theo chương trình con nữa ạ
Program HOC24;
var st,st1,st2: string;
i,n,d,k,j: integer;
t,m: longint;
a: array[1..10000] of integer;
f: text;
const fi='SUBSUM.INP' ;
fo = 'SUBSUM.OUT' ;
Procedure ip;
begin
assign(f,fi);
reset(f);
readln(f,n,m);
for i:=1 to n do read(f,a[i]);
close(f);
end;
Procedure out;
begin
assign(f,fo);
rewrite(f);
d:=0;
for i:=1 to n-1 do
Begin
If a[i]=m then d:=d+1;
for j:=i+1 to n do
begin
t:=0;
for k:=i to j do t:=t+a[k];
if t=m then d:=d+1;
end;
End;
if a[n]=m then d:=d+1; write(f,d);
close(f);
end;
Begin
ip;
out;
End.
Đúng 0
Bình luận (0)
Viết biểu thức logic cho kết quả đúng (True) nếu Điểm M có tọa độ M(x,y) nằm trong hình tròn có tâm là gốc tọa độ và bán kính là a Tin học pascal mn giải giúp mình vs ạ mình đg cần gấp!!!!
Viết chương trình tìm giá trị nhỏ nhất trong dãy A gồm N số nguyên (N không quá 100), nhập từ bàn phím (yêu cầu: sử dụng hàm tìm số nhỏ nhất trong 2 số x và y) Dùng pascal ạ mn giúp mình với!!!
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Đúng 0
Bình luận (0)
Hãy. Nêu cú pháp và cách thực hiện của câu lệnh lặp for ..to..đó và while..đó trong ngôn ngữ pascal( mn chị em vs ạ mai em thì rùi 🥺 ai giúp em thì em cảm ơn ạ)
*Câu lệnh For..do
Dạng xuôi: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
Đúng 0
Bình luận (1)
*Câu lệnh For..do
Dạng ngược: For <biến đếm>:=<giá trị cuối> downto <giá trị đầu> do <câu lệnh>;
Đúng 0
Bình luận (0)
*Câu lệnh For..do
-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
Đúng 0
Bình luận (0)
Xem thêm câu trả lời