Pascal
Mọi người giúp mình 3 bài này với ạ!
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.
TV
2
Những câu hỏi liên quan
HT
Mọi người giúp mình bài này với ạ :
Viết chương trình pascal nhập mảng và tìm số nhỏ thứ k trong mảng
2
28 tháng 2 2023
uses crt;
var a:array[1..100]of integer;
i,n,t,j,tam:integer;
begin
clrscr;
readln(n,k);
for i:=1 to n do readln(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then begin tam:=a[i]; a[i]:=a[j]; a[j]:=tam; end;
write(a[k]);
readln;
end.
28 tháng 2 2023
program sonho;
var
arr:array[1..100] of integer;
k, n, i, min: integer;
begin
write('Nhap n: ');
readln(n);
write('Nhap cac phan tu cua day: ');
for i := 1 to n do
begin
readln(arr[i]);
end;
write('Nhap k: ');
readln(k);
min := arr[1];
for i := 2 to k do
begin
if (arr[i] < min) then
min := arr[i];
end;
writeln('So nho thu ', k, ' trong day la: ', min);
end.
27 tháng 2 2023
var A:
array[1..n] of integer;
i, j, n: integer;
begin
write('Nhap so phan tu cua mang: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(A[i]);
end;
for i := 1 to n - 1 do
for j := i+1 to n do
if (A[i] mod 2 = 0) and (A[j] mod 2 = 0) and (A[i] < A[j]) or (A[i] mod 2 = 1) and (A[j] mod 2 = 1) and (A[i] > A[j]) then
begin
swap(A[i], A[j]);
end;
writeln('Mang da sap xep la: ');
for i := 1 to n do
writeln(A[i]);
end.
5 tháng 12 2021
\(R_{tđ}=\dfrac{R_1\cdot R_2}{R_1+R_2}=\dfrac{24\cdot12}{24+12}=8\Omega\)
\(I=\dfrac{U}{R}=\dfrac{12}{8}=1,5A\)
\(P=\dfrac{U^2}{R}=\dfrac{12^2}{8}=18W\)
\(Q_{tỏa1}=A_1=U_1\cdot I_1\cdot t=12\cdot\dfrac{12}{24}\cdot1\cdot3600=21600J\)
\(Q_{tỏa2}=A_2=U_2\cdot I_2\cdot t=12\cdot\dfrac{12}{12}\cdot1\cdot3600=43200J\)
NT
Nguyễn Thị Thương Hoài
Giáo viên
VIP
5 tháng 6 2023
Từ 0 đến 1 được chia thành 10 phần bằng nhau.
Giá trị của mỗi phần là: \(\dfrac{1}{10}\)
Từ lập luận trên ta có:
Số thích hợp để điền vào các ô trống lần lượt là:
10; 5; 6; 9; 10
5 tháng 6 2023
0 ; 1/10 ; 2/10 ; 3/10 ; 4/10 ; 5/10 ; 6/10 ; 7/10 ; 8/10 ; 9/10 ; 1
Chúc bạn học tốt!
KV
14 tháng 3 2023
Var a:array[1..100] of integer;
i,s:integer;
Begin
For i:=1 to 100 do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
If a[i] mod 2 <> 0 then s:=s+a[i];
End;
Write('Tong la ',s);
Readln;
End.
HN
1
12 tháng 9 2021
\(\left(5\sqrt{3}+3\sqrt{5}\right):\sqrt{15}=\dfrac{5\sqrt{3}}{\sqrt{15}}+\dfrac{3\sqrt{5}}{\sqrt{15}}=\dfrac{5\sqrt{3}}{\sqrt{5}.\sqrt{3}}+\dfrac{3\sqrt{5}}{\sqrt{3}.\sqrt{5}}=\sqrt{5}+\sqrt{3}\)
NQ
Nguyễn Quốc Đạt
CTVVIP
26 tháng 10 2023
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.
Câu 4:
fucntion tong(x:integer):integer;
var st:string;
d,i,n,y,t:integer;
begin
str(x,st);
d:=length(st);
t:=0;
for i:=1 to d do
begin
val(st[i],n,y);
t:=t+n;
end;
tong:=t;
end;
Câu 2:
const fi='bai2.inp';
fo='bai2.out';
var f1,f2:text;
a:array[1..100]of integer;
n,i,t:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(f2,t);
close(f1);
close(f2);
end.