// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
procedure MatPrint(a:array[,] of integer);
begin
var maxcol:=Length(a,1)-1;
for var i:=0 to Length(a,0)-1 do begin
for var j:=0 to maxcol do Print(a[i,j]);
Writeln
end
end;
begin
var m:=ReadInteger('Кол-во строк:');
var n:=ReadInteger('Кол-во столбцов:');
var t:=MatrixRandom(m,n,10,99); // инициализация матрицы
MatPrint(t);
var a:=new real[n]; // массив для средних по столбцам
for var j:=0 to n-1 do begin
var s:=0;
for var i:=0 to m-1 do s+=t[i,j];
a[j]:=s/m
end;
// cортированная последовательность индексов столбцов
var ai:=a.Select((x,i)->Rec(x,i)).SortedDescending
.Select(x->x.Item2).ToArray;
// cоздаем промежуточный массив
var u:array[,] of integer; SetLength(u,m,n);
for var j:=0 to n-1 do
for var i:=0 to m-1 do u[i,j]:=t[i,ai[j]];
t:=Copy(u); // вернем назад данные в исходный массив
Writeln;
MatPrint(t);
end.
<u><em>Тестовое решение</em></u>
Кол-во строк: 5
Кол-во столбцов: 8
24 30 70 85 92 32 11 25
83 92 64 51 28 47 10 22
50 14 76 84 23 63 64 39
30 22 84 59 55 32 58 63
80 36 53 74 80 82 84 33
85 70 92 24 32 11 30 25
51 64 28 83 47 10 92 22
84 76 23 50 63 64 14 39
59 84 55 30 32 58 22 63
74 53 80 80 82 84 36 33
#include <iostream>
int main()
{
using namespace std;
double x, y;
cout << "Enter x coordinate: ";
cin >> x;
cout << "Enter y coordinate: ";
cin >> y;
if (((y >= x / 3.0) && (y <= x * 3.0) && (y >= x * 3.0 - 8) && (y <= x / 3.0 + 8.0 / 3.0))
|| ((y <= x / 3.0) && (y >= x * 3.0) && (y <= x * 3.0 + 8) && (y >= x / 3.0 - 8.0 / 3.0)))
cout << "yes";
else
cout << "no";
cout << endl;
return 0;
}
1окно 2 формат 3 память 4 пуск 5выделить 6 стол
7окно 8печать
По вертикали
10
11выход
12проводник
Современный Паскаль все сделает сам...
<em>// PascalABC.NET 3.2, сборка 1387 от 17.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('x='); Writeln('F=',1/(x-1))
end.
<u>Примеры</u>
x= -3.5
F=-0.222222222222222
x= 1.000001
F=1000000.00008227
x= 1
F=бесконечность
Var num : integer;
....
num := arr[0];
for i:=0 to n-1 do arr[i] := arr[i+1];
arr[n] := num;
