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

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

Командный пользовательский интерфейс требует более высокой абстракции, профессионализма и подготовки. графический интерфейс более дружественный к оператору, большую часть работы позволяет перенести на плечи компьютера. как правило, основные ошибки допускает оператор, а не компьютер. вероятность ошибки возрастает по экспоненте с ростом количества манипуляций оператора. как правило, если оператор вынужден вводить с клавиатуры в два раза больше команд, то вероятность ошибки возрастает не в 2 раза, а в 10 раз. поэтому, как заметил еще стив джобс, будущее за графическим интерфейсом, который открыл новую эру в макинтош. в современном мире эволюция интерфейса не остановилась. все больше роль в общении с компьютером берет на себя электроника. компьютер научился определять настроение оператора по улыбке, фотография автоматически фокусируется, на нужном участке, вводятся голосовые команды, команды по сигналам нейронов, температурные инфракрасные с 13 мая 1997 года, когда компьютер победил г.каспарова – чемпиона по шахматам среди людей, человечество незаметно для себя шагнуло в новую эпоху, которая по праву называется информационной. будущее в лидерстве и прогрессе эволюции уже не определяется однозначно и не принадлежит только человеку, а переходит к своеобразному кентавру человеко-машинному комплексу. рутинные, громоздкие операции ложатся на плечи автоматики, а ответственность и планирование берет на себя человек.