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

0 голосов
34 просмотров

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


Информатика (29 баллов) | 34 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

//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.

(55.0k баллов)