begin var n:=ReadInteger('Количество строк в матрице:'); var m:=ReadInteger('Количество столбцов в матрице:'); Writeln('*** Исходная матрица [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); Writeln('*** Результат [',n,',',m,'] ***'); a.Fill((i,j)->Abs(a[i,j])); a.Println(4) end.
Пример Количество строк в матрице: 4 Количество столбцов в матрице: 7 *** Исходная матрица [4,7] *** 10 42 3 83 -65 43 65 -52 -40 55 75 -27 53 -47 17 88 93 32 35 41 -76 70 13 6 2 9 -22 -55
Const N = 13; Var A:array[1..N] of integer; i,Max:integer; Begin Randomize; Write('Исходный массив:'); Max:=1; For i:= 1 to N do Begin A[i]:=random(N div 2); Write(' ',A[i]); if A[i] > A[Max] then Max:=i; End; WriteLn; WriteLn('Максимальное значение: ',A[Max]); Write('Номера максимальных элементов:'); For i:= 1 to N do if A[i] = A[Max] then Write(' ',i) End.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=MatrGen(9,9,(i,j)->i+1); a.Println(2);
end.
Результат
1 1 1 1 1 1 1 1 1
2 2 2 2 2 2 2 2 2
3 3 3 3 3 3 3 3 3
4 4 4 4 4 4 4 4 4
5 5 5 5 5 5 5 5 5
6 6 6 6 6 6 6 6 6
7 7 7 7 7 7 7 7 7
8 8 8 8 8 8 8 8 8
9 9 9 9 9 9 9 9 9
begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('*** Результат [',n,',',m,'] ***');
a.Fill((i,j)->Abs(a[i,j])); a.Println(4)
end.
Пример
Количество строк в матрице: 4
Количество столбцов в матрице: 7
*** Исходная матрица [4,7] ***
10 42 3 83 -65 43 65
-52 -40 55 75 -27 53 -47
17 88 93 32 35 41 -76
70 13 6 2 9 -22 -55
*** Результат [4,7] ***
10 42 3 83 65 43 65
52 40 55 75 27 53 47
17 88 93 32 35 41 76
70 13 6 2 9 22 55