Сильно на языке pascalabc.net: 1)определить значение z = max (a, 2b) • max (2a-b, b),где max (x, y) есть максимальное из чисел х, у. при решении определить и использовать функцию max.выполнить отладку программы с заходом в каждую из подпрограмм. 2)найти сумму четных элементов массива целых чисел. массив должен вводится во время работы программы.выполнить отладку программы с заходом в каждую из подпрограмм. 3)написать программу, которая вводит двумерный массив а(n,m) и заменяет все отрицательные элементы на 0.

282

383

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

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

MaliaM

Информатика

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

//pascalabc.net 3.1 сборка 1239 1) хотя не понятно зачем изобретать велосипед function max(a, b: integer): integer; begin max : = a; if b > a then max : = b; end; begin var a: =readinteger('a ='); var b: =readinteger('b ='); writeln(max(a, 2 * b) * max(2 * a - b, b)); end. 2) const handfree = false; begin var a: = new integer[readinteger('n =')]; if handfree then a : = arrrandominteger(a.length, -50, 50) else a : = readarrinteger(a.length); writeln('array: '); a.println; writeln('sum of odds by value = ', a.where(x -> x mod 2 = 0).sum); writeln('sum of odds by position = ', a.slice(0, 2).sum); end. 3) const n = 5; m = 6; handsfree = false; begin var a : = new integer[n, m]; writeln('данные матрицы: '); for var i : = a.getlowerbound(0) to a.getupperbound(0) do begin for var j : = a.getlowerbound(1) to a.getupperbound(1) do if handsfree then begin a[i, j] : = random(-50, 50); write(a[i, j]: 4, ' ') end else read(a[i, j]); writeln; end; writeln('вывод: '); for var i : = a.getlowerbound(0) to a.getupperbound(0) do begin for var j : = a.getlowerbound(1) to a.getupperbound(1) do begin if a[i, j] < 0 then a[i, j] : = 0; write(a[i, j]: 4, ' '); end; writeln; end; end.