//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 до 9 равна 45. Сумма от 10 до 19 равна 10 + 45 = 55. Сумма от 20 до 29 равна 2*10 + 45 = 65. Сумма от 30 до 39 равна 3*10 + 45 = 75. ... Сумма от 90 до 99 равна 9*10 + 45 = 135. Сумма всех цифр от 1 до 99 равна 45 + 55 + 65 + ... + 135 = (45 + 135)*10/2 = 180*10/2 = 900 В номерах от 100 до 199 та же сумма цифр 900 + 100*1 = 1000 В номерах от 200 до 209 сумма цифр 2*9 + 45 = 18 + 45 = 63 В номерах от 210 до 212 сумма цифр 2+1+0+2+1+1+2+1+2 = 12 Итого сумма всех цифр 900 + 1000 + 63 + 12 = 1975
a =list(map(int, input().split()))
min_ind = a.index(min(a))
max_ind = a.index(max(a))
a[min_ind], a[max_ind] = a[max_ind], a[min_ind]
print(*a)
Объяснение: