本人电路白痴,并附加详细讲解(本人基础差,急用!
来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/15 21:38:07
本人电路白痴,并附加详细讲解(本人基础差,急用!
本人电路白痴,并附加详细讲解(本人基础差,急用!
本人电路白痴,并附加详细讲解(本人基础差,急用!
先用你的鸡巴
加上你女友的内裤
接上电源
三角形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.
采纳不?