Вода передает информацию, перекличка присутствующих на уроке.
Элик.
Мне приснилось что Есть такой робот который чувствует и как живой друг или подруга и когда я пришла в школу то узнала что у нас сочинение и записала это и я очень хочу чтобы это исполнилось
Const n=4;
<span> m=3;
</span><span>var a: array[,] of integer;
</span><span> b: array of integer;
</span><span> i,j,k: integer;
</span><span>begin
</span><span> setlength(b,n*m);
</span><span> setlength(a,n,m);
</span><span> randomize;
</span><span> writeln('исходный массив:');
</span><span> for i:=0 to n-1 do
</span><span> begin
</span><span> for j:=0 to m-1 do
</span><span> begin
</span><span> a[i,j]:=random(-10,10);
</span><span> write(a[i,j]:4);
</span><span> end;
</span><span> writeln;
</span><span> end;
</span><span>// удаление строк массива
</span><span> k:=0;
</span><span> for i:=0 to n-1 do
</span><span> if a[i,0]<=a[i,m-1] then
</span><span> begin
</span><span> k:=k+1;
</span><span> for j:=0 to m-1 do
</span><span> b[(k-1)*n+j]:=a[i,j];
</span><span> end;
</span><span>// печать нового массива
</span><span> writeln('новый массив:');
</span><span> setlength(a,k,m);
</span><span> for i:=0 to k-1 do
</span><span> begin
</span><span> for j:=0 to m-1 do
</span><span> begin
</span><span> a[i,j]:=b[i*n+j];
</span><span> write(a[i,j]:4);
</span><span> end;
</span><span> writeln;
</span><span> end;
</span><span>end.
</span>исходный массив:
<span> -3 5 -5
</span><span> 2 3 5
</span><span> -8 3 -2
</span><span> 3 -4 -7
</span><span>новый массив:
</span><span> 2 3 5
</span><span> -8 3 -2
</span><span>
</span>
<span>
</span>
Возьми слово переписка
подбирай слова такие чтобы в них была буква п е р е п и с к а.
все!
N/2
при нечетном н результат округлится вниз и центральный элемент никуда не переместится, но ответ будет верным
