Regular expressions can contain captures (0.7.40) that can later be used in other directives.
Parameter value can contain variables.
Free Pascal Compiler version 3.2.2+dfsg-9ubuntu1 [2022/04/11] for x86_64
Copyright (c) 1993-2021 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling main.pas
Linking a.out
54 lines compiled, 0.0 sec
Массив целых чисел - от 1 до 15:
6 35 13 17 18 27 26 36 23 16 29 33 9 24 2
Сколько столбцов должно быть в матрице?
2
А строк?
3
24 14
16 35
30 33
...Program finished with exit code 0{Учебная программа по генерации и выводу массива}
program arraytest;
type
TArr = array [1..15] of integer;
TArr2 = array [1..15,1..30] of integer;
var
A: TArr;
B: TArr2;
n,m: byte;
procedure ArrGeneration;
var
i: byte;
begin
for i := 1 to 15 do
begin
A[i] := Random(40);
Write(A[i]:3);
end;
Writeln();
end;
function MatrixGen(var x, y: byte): integer;
var
ix, iy: byte;
begin
for iy := 1 to y do
begin
for ix := 1 to x do
begin
B[ix,iy] := Random(40);
Write(B[ix,iy]:3);
end;
Writeln();
end;
MatrixGen := x * y;
end;
begin
Randomize;
Writeln();
Writeln('Массив целых чисел - от 1 до 15:');
ArrGeneration;
Writeln();
Writeln('Сколько столбцов должно быть в матрице?');
Readln(n);
{n := 5;}
Writeln('А строк?');
Readln(m);
{m := 4;}
Writeln();
MatrixGen(n, m);
end.
где не удаляет?
и вообще, что нужно сделать? т.к. тут ИМХО filter() лучше подойдёт