Question

Дано: Массивы А(10),В(15). Поменять местами их первые положительные элементы . Для нахождения первого положительного элемента и его номера в массиве использовать подпрограмму. Сделать в паскале

Answer 1

//PascalABC.Net 3.1 сборка 1200

function FirstPositive(m: array of integer): integer;
begin
    FirstPositive := m.FindIndex(x -> x > 0);
end;

begin
    var a := ArrRandomInteger(10, -50, 50);
    Println(a);
    var b := ArrRandomInteger(15, -50, 50);
    Println(b);
    Swap(a[FirstPositive(a)], b[FirstPositive(b)]);
    Writeln('Результат');
    Println(a);
    Println(b);
end.