Visual basic. .написал основную программу, а доп. идёт сформировать вектор из элементов находящихся ниже главной диагонали. подскажите, что и куда приписать нужно.
Var ma,mabuf:array of array of integer; i,j,n,m,x,mark,k,h,newm,kar:integer; begin readln(n); readln(m); newm:=m; readln(x); setlength(ma,n); setlength(mabuf,n); for i:=0 to n-1 do begin setlength(ma[i],m); setlength(mabuf[i],m); end; for i:=0 to n-1 do for j:=0 to m-1 do readln(ma[i][j]); kar:=-1; for j:=0 to m-1 do begin inc(kar); for i:=0 to n-1 do if ma[i][j]=x then begin inc(newm); for h:=0 to n-1 do setlength(mabuf[h],newm); for h:=0 to n-1 do mabuf[h][kar]:=0; inc(kar); break; end; for i:=0 to n-1 do mabuf[i][kar]:=ma[i][j]; end; for i:=0 to n-1 do setlength(ma[i],newm); writeln; for i:=0 to n-1 do begin for j:=0 to newm-1 do begin ma[i][j]:=mabuf[i][j]; write(ma[i][j],' '); end; writeln; end; end.
Пример ввода: 2 2 2 1 2 1 -2 Пример вывода: 1 0 2 1 0 -2
Var
ma,mabuf:array of array of integer;
i,j,n,m,x,mark,k,h,newm,kar:integer;
begin
readln(n);
readln(m);
newm:=m;
readln(x);
setlength(ma,n);
setlength(mabuf,n);
for i:=0 to n-1 do
begin
setlength(ma[i],m);
setlength(mabuf[i],m);
end;
for i:=0 to n-1 do
for j:=0 to m-1 do
readln(ma[i][j]);
kar:=-1;
for j:=0 to m-1 do
begin
inc(kar);
for i:=0 to n-1 do
if ma[i][j]=x then
begin
inc(newm);
for h:=0 to n-1 do
setlength(mabuf[h],newm);
for h:=0 to n-1 do
mabuf[h][kar]:=0;
inc(kar);
break;
end;
for i:=0 to n-1 do
mabuf[i][kar]:=ma[i][j];
end;
for i:=0 to n-1 do
setlength(ma[i],newm);
writeln;
for i:=0 to n-1 do
begin
for j:=0 to newm-1 do
begin
ma[i][j]:=mabuf[i][j];
write(ma[i][j],' ');
end;
writeln;
end;
end.
Пример ввода:
2 2 2
1 2
1 -2
Пример вывода:
1 0 2
1 0 -2
<html>
<head>
</head>
<body>
<span id='nums'></span>
</body>
<script type="text/javascript">
var b=true;
for(var i=132;i<723;i++)
{for(var j=2;j<=i/2+i%2;j++)
if(i%j==0)
b=false;
if(b==true)
document.getElementById('nums').innerHTML=document.getElementById('nums').innerHTML+' '+i; //это одна строка
b=true;}
</script>
</html>
//2
<html>
<head>
</head>
<body>
<span id='nums'>Array:</span>
</body>
<script type="text/javascript">
var ar=[];
var sum=0;
var buf;
for(var i=0;i<5;i++)
{ar[i]=Math.random()*9+1;
document.getElementById('nums').innerHTML=document.getElementById('nums').innerHTML+ar[i]+' '; sum+=ar[i];}
document.getElementById('nums').innerHTML+="<br> Arithmetic mean="+sum/5;
for(var i=0;i<4;i++)
for(var j=i+1;j<5;j++)
if(ar[i]>ar[j])
{buf=ar[i];
ar[i]=ar[j];
ar[j]=buf;}
document.getElementById('nums').innerHTML=document.getElementById('nums').innerHTML+"<br> Median="+ar[2];
var modar=[];
for(var i=0;i<5;i++)
modar[i]=0;
for(var i=0;i<5;i++)
for(var j=0;j<5;j++)
if((i!=j)&&(ar[i]==ar[j]))
modar[i]++;
var max=-1;
var maxi=-1;
for(var i=0;i<5;i++)
if(max<modar[i])
{max=modar[i];
maxi=i;}
document.getElementById('nums').innerHTML=document.getElementById('nums').innerHTML+"<br> Mode:";
for(var i=0;i<5;i++)
if((modar[i]==max) && (ar[i]!=ar[i-1]))
document.getElementById('nums').innerHTML=document.getElementById('nums').innerHTML+ar[i]+' ';
</script>
</html>