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

103

177

Посмотреть ответы 2

Ответы на вопрос:

mahachkala1

Информатика

4,4(85 оценок)

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