Найти массив f образованный из массива m заменой отрицательное элементов их квадратами, а положительных натуральными логарифмами

217

416

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

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

ElenaScience

Информатика

4,6(62 оценок)

// pascalabc.net 3.2, сборка 1374 от 10.01.2017 // внимание! если программа не работает, обновите версию! begin var m: =readinteger('количество строк в массиве: '); var n: =readinteger('количество столбцов в массиве: '); writeln('*** исходный массив [',m,',',n,'] ***'); var a: =matrrandom(m,n,-50,50); a.println(4); writeln(4*a.colcount*'-'); var b: =a.rows.selectmany(x-> x).toarray; var nn: =readinteger('1. введите число n: '); write('максимальный из элементов, не превосходящий n'); if nn< b.min then writeln(', не существует') else writeln(', равен ',b.where(x-> x< =nn).max); write('2. максимальный элемент в массиве ['); var i: =b.indexmax; writeln(i div n+1,',',i mod n+1,']=',a[i div n,i mod n]) end. пример количество строк в массиве: 5 количество столбцов в массиве: 9 *** исходный массив [5,9] *** -18 -13 16 23 -14 -30 -12 -2 -2 -34 11 -47 -35 20 44 29 -36 46 2 -28 -35 -6 38 -9 -2 8 -10 3 16 5 -20 8 5 48 7 -33 -25 3 30 -35 -10 22 -11 42 -44 1. введите число n: 31 максимальный из элементов, не превосходящий n, равен 30 2. максимальный элемент в массиве [4,7]=48