procedure Получить_и_вывести(n: integer; a: array of integer);
begin
Write('Вектор №', n, ': ');
a.Println;
Println('Количество инверсий:',
a.Pairwise.Where(p -> p[0] > p[1]).Count)
end;
begin
var (m, n) := ReadInteger2('Задайте M и N:');
var G := MatrRandom(m, n, -99, 99);
G.Println;
Writeln;
var A := G.Row(0);
Получить_и_вывести(1, A);
var B := G.Row(1);
Получить_и_вывести(2, B);
var C := G.Row(2);
Получить_и_вывести(3, C);
var D := G.Row(3);
Получить_и_вывести(4, D)
end.
Одной цепочкой, используя функцию удаления фрагментов из строки:
begin; 'Информатика − наука, изучающая структуру, общие свойства и методы передачи информации'.Remove(' ').Print; end.
Цикл (программа в новом стиле):
begin
var (s, t) := ('Информатика − наука, изучающая структуру, общие свойства и методы передачи информации', '');
for var n := 1 to Length(s) do
t += s[n] <> ' ' ? s[n] : '';
Print(t);
end.
Цикл (программа в старом стиле):
var
s, t: string;
n: integer;
begin
s := 'Информатика − наука, изучающая структуру, общие свойства и методы передачи информации';
t := '';
for n := 1 to Length(s) do
if s[n] <> ' ' then
t := t + s[n];
write(t);
end.