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.
Bài 2:
-Sum(a1,b1,30): 110
-sum(a1,a1,b1): 110
-Average(a1,b1,50): 43,(3)
-Max(a1,b1,25): 50
a)
-bạn Hoàng An:=SUM(c2;d2;e2)
-bạn Duy Hùng: =SUM(c3;d3;e3)
-bạn Lành: =Sum(c4;d4;e4)
-bạn Khánh: =Sum(c5;d5;e5)
-bạn Tình: =SUm(c6;d6;e6)
b)
-bạn Hoàng An:=Average(c2;d2;e2)
-bạn Duy Hùng: =Average(c3;d3;e3)
-bạn Lành: =Average(c4;d4;e4)
-bạn Khánh: =Average(c5;d5;e5)
-bạn Tình: =Average(c6;d6;e6)
Program hotrotinhoc;
const fi='cau2.inp';
fo='cau2.out';
var f: text;
s: ansistring;
i,n,d,max,min: integer;
a: array[1..1000] of string;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,s);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
s:=s+' ';
while length(s)<>0 do
begin
inc(d);
min:=1001;
max:=0;
a[d]:=copy(s,1,pos(' ',s)-1);
delete(s,1, pos(' ',s));
end;
for i:=1 to d do
begin
if length(a[i])>max then max:=length(a[i]);
if length(a[i])<min then min:=length(a[i]);
end;
write(f,min,' ',max);
close(f);
end;
begin
ip;
out;
end.
Program hotrotinhoc_hoc24;
const fi='CAPSO.INP';
fo='CAPSO.OUT';
var a: array[1..100] of integer;
i,j,n,x,d: integer;
f: text;
procedure ip;
begin
assign(f,fi);
reset(f);
readln(f,n);
for i:=1 to n do read(f,a[i]);
readln(f);
read(f,x);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
d:=0;
for i:=1 to n do
for j:=i to n do
if i+j=x then inc(d);
write(f,d);
close(f);
end;
begin
ip;
out;
end.
Một lần nữa cảm ơn ban giám khảo và ban tổ chức ạ. Em cảm thấy cuộc thi rất thú vị, nhờ việc tham gia cuộc thi em được biết thêm rất nhiều bạn khác với lượng kiến thức đáng ngưỡng mộ. Mong cuộc thi thuyết trình sẽ trở lại sớm vào 1 ngày không xa và có thêm nhiều thành viên tham gia hơn nữa :3
cho em GP nhen chj