// PascalABC.NET 3.2, сборка 1379 от 21.01.2017 // Внимание! Если программа не работает, обновите версию!
begin var m:=ReadInteger('Количество строк в матрице:'); var n:=ReadInteger('Количество столбцов в матрице:'); Writeln('*** Исходная матрица [',m,',',n,'] ***'); var a:=MatrRandom(m,n,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var b:=a.Rows.SelectMany(x->x).ToArray; var mx:=b.IndexMax; var mn:=b.IndexMin; Swap(a[mx div n,mx mod n],a[mn div n,mn mod n]); Writeln('*** Матрица-результат ***'); a.Println(4); end.
Пример Количество строк в матрице: 5 Количество столбцов в матрице: 6 *** Исходная матрица [5,6] *** 22 72 95 -18 48 15 -25 72 73 45 -62 75 49 95 -32 20 66 48 55 7 57 -98 -8 94 78 50 -49 73 0 -74
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017 // Внимание! Если программа не работает, обновите версию!
begin var m:=8; var n:=9; Writeln('*** Исходная матрица D[',m,',',n,'] ***'); var d:=MatrRandom(m,n,-100,100); d.Println(5); Writeln(5*n*'-'); Writeln('Столбцы, в которых отрицательных элементов больше положительных'); for var i:=0 to n-1 do if (d.Col(i).Where(x->x<0).Count)>(d.Col(i).Where(x->x>0).Count) then Print(i+1) end.
выводит на экран нечётные числа от 1 (включительно) до n (не включительно) в строку через пробел
Объяснение:
n = int(input('n = ')) - ввод числа n
for j in range (1, n, 2): - цикл от 1 (включительно) до n (не включительно) с шагом 2
1 (1 + 2 = 3 < n, да)
3 (3 + 2 = 5 < n, да)
5 (5 + 2 = 7 < n, да)
и так далее пока новый шаг не даст число равное или больше n (число >= n), после чего цикл закончится
print (j, end=' ') - вывод результата каждого шага цикла на экран в строку через пробел, т.к. строка (из-за параметра end=' ') заканчивается пробелом