На паскале 1. определите наибольшее значение заработной платы работника с номером 2 2. определите среднюю заработную плату работника с номером n

Program z1; uses crt; const n=10; var a: array[1..n] of integer; i, s: integer; begin clrscr; s: =0; writeln('введите элементы массива'); for i: =1 to n do begin read(a[i]); // ввод элементов в одну строку через пробел if a[i] mod 2 = 1 then inc(s) end; writeln(s); readkey; end. program z2; uses crt; const n=5; var a: array[1..n] of real; i: integer; s: real; begin clrscr; s: =0; writeln('введите элементы массива'); for i: =1 to n do begin read(a[i]); // ввод элементов в одну строку через пробел if a[i]> 2 then s: =s+sqr(a[i]) end; writeln(s); readkey; end. program z3; uses crt; const n=5; var a1, a2, a3: array[1..n] of integer; i: integer; begin clrscr; randomize; for i: =1 to n do begin a1[i]: = random(100)+1; //  рандомное число от 1 до 100  a2[i]: = random(100)+1; a3[i]: =a1[i]-a2[i]; writeln(a1[i], '   ', a2[i], '   ', a3[i]); end; readkey; end. program z4; uses crt; const n=10; var a: array[1..n] of integer; max, c, i: integer; beginclrscr; writeln('введите элементы массива'); for i: =1 to n do  read(a[i]); max: =a[i]; for i: =1 to n do beginif max< a[i] then begin max: =a[i]; c: =iendend; writeln(''); writeln('max=', max, '   номер=', c); readkey; end.

Const   pi = 3.14;   g = 9.81; var   v0, alpha, x, y, t: single; begin   write('введите начальную скорость и угол: ');   readln(v0, alpha);   writeln('  t              x                      y');   t : = 0;   while t < = 10 do   begin       x : = v0 * t * cos(alpha * pi / 180);       y : = v0 * t * sin(alpha * pi / 180) - g * t * t / 2;       writeln(t: 4: 1, x: 11: 3, y: 13: 3);       t : = t + 0.5   end end. тестовое решение: введите начальную скорость и угол: 30 60   t              x                      y   0.0          0.000              0.000   0.5          7.507            11.760   1.0        15.014            21.068   1.5        22.521            27.923   2.0        30.028            32.326   2.5        37.534            34.276   3.0        45.041            33.773   3.5        52.548            30.819   4.0        60.055            25.411   4.5        67.562            17.551   5.0        75.069              7.239   5.5        82.576            -5.526   6.0        90.083          -20.743   6.5        97.590          -38.413   7.0      105.097          -58.535   7.5      112.603          -81.110   8.0      120.110        -106.138   8.5      127.617        -133.617   9.0      135.124        -163.550   9.5      142.631        -195.935 10.0      150.138        -230.772 отрицательные значения y в данном случае показывают, что тело как бы продолжает падать ниже первоначального уровня, что возможно только если с горы кидать что-то в