var i,j: byte;
begin
writeln ('Заполнение массива случайными числами.');
randomize;
for i := 1 to k do
arr[i] := random (100);
for j := 1 to k do
arr[j] := random (100);
end;
Объяснение:
