begin
var n := ReadInteger('Размер массива:');
var k := ReadInteger('Максимальное значение элемента:');
var a := ArrRandom(n, 0, k);
a.Println;
var b := ArrRandom(n, 0, k);
b.Println;
var c := a.Zip(b, (p, q)-> p + q).ToArray;
c.Println;
k := c.Max;
var v := ArrFill(k + 1, 0);
for var i := 0 to c.High do
v[c[i]] += 1;
var d := 0;
for var j := 0 to k do
for var i := 0 to v[j] - 1 do
begin
c[d] := j;
d += 1
end;
c.Println
end.
Размер массива: 15Максимальное значение элемента: 4031 11 31 28 10 30 16 38 24 25 11 38 0 29 3531 36 6 35 15 2 13 34 10 6 37 14 32 31 1062 47 37 63 25 32 29 72 34 31 48 52 32 60 4525 29 31 32 32 34 37 45 47 48 52 60 62 63 72
var j, a, b, n: integer;
label 1;
begin
1: randomize;
a: = random (9);
b: = random (9);
write (a, '*', b, '=');
read (n);
if n = (a * b) then writeln ('відповідь вірний! ')
else writeln ('відповідь неправильний! ');
writeln ('продовжуватимеш? ');
writeln ('якщо так то натисни 1');
writeln ('якщо немає то натисни 2');
read (j);
if j = 1 then goto 1;
if j = 2 then writeln ('до побачення! ');
end.
начебто так, точно не пам'ятаю.