本人电路白痴,并附加详细讲解(本人基础差,急用!
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/13 03:00:36
![本人电路白痴,并附加详细讲解(本人基础差,急用!](/uploads/image/z/11608662-30-2.jpg?t=%E6%9C%AC%E4%BA%BA%E7%94%B5%E8%B7%AF%E7%99%BD%E7%97%B4%2C%E5%B9%B6%E9%99%84%E5%8A%A0%E8%AF%A6%E7%BB%86%E8%AE%B2%E8%A7%A3%EF%BC%88%E6%9C%AC%E4%BA%BA%E5%9F%BA%E7%A1%80%E5%B7%AE%2C%E6%80%A5%E7%94%A8%21)
本人电路白痴,并附加详细讲解(本人基础差,急用!
本人电路白痴,并附加详细讲解(本人基础差,急用!
本人电路白痴,并附加详细讲解(本人基础差,急用!
先用你的鸡巴
加上你女友的内裤
接上电源
三角形X公式
3.
var a:array[1..1000] of 0..1;
b:array[1..1000] of integer;
k,n,i:integer;
begin
readln(n);
for i:=1 to n do begin read(b[i]);a[b[i]]:=1;end;
for i:=1 to 1000 do k:=k+a[i];
writeln(k);
for i:=1 to 1000 do if (a[i]=1) then write(i,' ');
end.
4.
var a:array[1..10] of 0..300;
n:99..121;
i,z:integer;
begin
z:=0;
for i:=1 to 10 do read(a[i]);
readln(n);
for i:=1 to 10 do
if (n+30>=a[i]) then inc(z);
writeln(z);
end.
5.
var a:array[1..7,1..2] of 0..10;
i,j,max,x:integer;
begin
max:=0;x:=0;
for i:=1 to 7 do
begin
for j:=1 to 2 do
read(a[i,j]);
if (a[i,1]+a[i,2]>max) then begin max:=a[i,1]+a[i,2];x:=i;end;
end;
writeln(x);
end.
采纳不?