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

//1 var   a,b,z: integer;   function max(a,b: integer): integer;   begin   if a> b then max: =a else max: =b;   end;   begin   read(a,b);   z: =max(a,2*b)*max(2*a-b,b);   writeln(z); end. //2(если имеются в виду чётные по индексу) const   n=5; var   ar: array[1..n] of integer;   i,r: integer; begin   writeln('array: ');   for i: =1 to n do   begin     readln(ar[i]);     if not(odd(i)) then r: =r+ar[i];   end;   writeln(r); end. //2(если имеются в виду чётные по значению) const   n=5; var   ar: array[1..n] of integer;   i,r: integer; begin   writeln('array: ');   for i: =1 to n do   begin     readln(ar[i]);     if not(odd(ar[i])) then r: =r+ar[i];   end;   writeln(r); end. //3 const   n=2;   m=3; var   ar: array[1..n,1..m] of integer;   i,j: integer; begin   writeln('matrix: ');   for i: =1 to n do   for j: =1 to m do     begin     readln(ar[i,j]);     if ar[i,j]< 0 then ar[i,j]: =0;     end;   writeln('final matrix: ');   for i: =1 to n do   begin   for j: =1 to m do     write(ar[i,j]: 4);   writeln;   end; end. //4(не знаю на сколько это похоже на паркет) uses   graphabc;   const  r=30;   var   i,x,y: integer; begin   x: =300;   y: =300;   maximizewindow;   circle(x,y+r,r);   floodfill(x,y+r,clpurple);   circle(x,y-r,r);   floodfill(x,y-r,clpurple);   circle(x+r,y+r,r);   floodfill(x+r,y+r,clpurple);   circle(x-r,y-r,r);   floodfill(x-r,y-r,clpurple);   circle(x-r,y+r,r);   floodfill(x-r,y+r,clpurple);   circle(x+r,y-r,r);   floodfill(x+r,y-r,clpurple); end. //5 uses   graphabc; var   i,x,y: integer; begin   maximizewindow;   setbrushstyle(bsclear);   setpencolor(clblue);   circle(300,300,15);   setpencolor(clyellow);   circle(315,315,15);   setpencolor(clblack);   circle(330,300,15);   setpencolor(clgreen);   circle(345,315,15);   setpencolor(clred);   circle(360,300,15); end. //6 uses   graphabc;   var   x,y,i: integer; begin   x: =0;   y: =windowheight;   window.width: =windowheight;   while x+10< windowwidth do   begin   line(x,y,x+5,y-5);   line(x+5,y-5,x+10,y);   line(x+10,y,x,y);   sleep(10);   clearwindow;   inc(x);   dec(y);   end;   line(x,y,x+5,y-5);   line(x+5,y-5,x+10,y);   line(x+10,y,x,y); end.

//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. 4) не ясно что они конкретно под паркетом подразумевали uses   graphabc; const       r = 30; begin       var x : = r;       var y : = 7 * r;       brush.color : = clpurple;             for var i : = 1 to 6 do               circle(x + r * i, y - r * i, r); end. 5) uses graphabc; const   radius = 50; begin   var step : = radius div 5;   //  var step : = 0;   var x : = 2 * radius;   var y : = 2 * radius;   setpenwidth(radius div 10);     setpencolor(clblue);   drawcircle(x, y, radius);   x += 2 * radius + step;     setpencolor(clblack);   drawcircle(x, y, radius);   x += 2 * radius + step;     setpencolor(clred);   drawcircle(x, y, radius);   y += radius + step;   x : = 3 * radius + step div 2;     setpencolor(clyellow);   drawcircle(x, y, radius);   x += 2 * radius + step;     setpencolor(cllimegreen);   drawcircle(x, y, radius);   x += 2 * radius + step; end. 6) uses   graphabc; const       w = 500;       d = 10; begin       window.init(0, 0, w, w, clgreen);       window.centeronscreen;       brush.color : = clblack;             for var x : = 0 to window.width do       begin               var y : = window.height - x;               sleep(10);               window.clear(clgreen);               fillpolygon((x, y), (x + d, y - d), (x + 2 * d, y));       end; end.

Впаскале const       n = 3;       k = 3; var   i,j: integer;   a: array[1..n,1..k] of integer; begin       for i: =1 to n do       for j: =1 to k do     begin       writeln('введите a[',i,',',j,']: ');       readln(a[i,j]);     end;   writeln('исходный массив: ');   for i: =1 to n do     begin       for j: =1 to k do     write('a[': 4,i,',',j,']=',a[i,j]);     writeln;     end;   for i: =1 to n do     for j: =1 to k do     if i=j then a[i,j]: =0;   writeln('полученный массив: ');   for i: =1 to n do     begin      for j: =1 to k do     write('a[': 4,i,',',j,']=',a[i,j]);     writeln;     end; end.