//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016) function Transpose(a: array[,] of integer): array[,] of integer; //Поворот на 90гр по часовой стрелке begin var m := Length(a, 0); var n := Length(a, 1); Result := new integer[n, m]; for var i := 0 to n-1 do begin for var j := 0 to m-1 do Result[i, j] := a[m-1-j, i]; end; end;
begin var n := ReadInteger('Введите n:'); //Заполнение матрицы NxN сл. числами и вывод на экран var a :=MatrixRandom(n, n); for var i:=0 to n-1 do begin for var j:=0 to n-1 do Print(a[i,j]); println; end; println;
Println('поворот влево на 90 гр'); var b := Transpose(a); b:=Transpose(b); b:=Transpose(b); for var i:=0 to n-1 do begin for var j:=0 to n-1 do Print(b[i,j]); println; end; println;
Println('поворот вправо на 90гр'); b := Transpose(a); for var i:=0 to n-1 do begin for var j:=0 to n-1 do Print(b[i,j]); println; end; println;
Println('поворот на 180 гр'); b := Transpose(a); b := Transpose(b); for var i:=0 to n-1 do begin for var j:=0 to n-1 do Print(b[i,j]); println; end; end.
Объяснение:
1. int x = 340;
int ind = x.Substring(0,1);
2. int[] arr = new arr[5];
int prod = 1;
int count;
foreach (int el in arr) prod*=el; count++;
3. int[] numbers= new numbers[N];
int min = numbers[0], minIndex = 0;
for (int i = 0; i < NumbersCount; i++) { if (min > numbers[i]) { min = numbers[i]; minIndex = i; } }
4. int ded = M;
int vnyk=N;
int res =vnyk*3;
задача бессмысленна. он уже старше внука в 3 раза, как минимум
5. string name = Console.ReadLine();
string surname = Console.ReadLine();
string thirdName = Console.ReadLine();
Console.WriteLine(name+" "+surname);