Всельскохозяйственном кооперативе работают 5 сезонных рабочих. норма сбора овощей составляет n килограмм. оплата труда производится по количеству собранных овощей: k рублей за 1 кг. известно что первый рабочий собрал овощей в 3 раза больше нормы. второй на 50 кг меньше первого. третий в 1, 5 раза больше нормы. четвертый на 75 кг больше третьего. пятый на 10 кг больше первого. составить таблицу содержащую сведения о количестве собранных овощей в каждом рабочем и об оплате труда каждого рабочего

Var     mas: array [1..9] of integer;     summ, count: integer;     i: integer; begin      randomize;     summ : = 0;     count : = 1;     for i : = 1 to 9 do     begin         mas[i] : = random(-30, 30);         write(mas[i] : 4);         if mas[i] < 0 then summ : = summ + mas[i];         if mas[i] > 0 then count : = count * mas[i];     end;     writeln('');     writeln('сумма отрицательных элементов: ', summ);     writeln('произведение положительных элементов: ', count); end.

Считаем, что в нашей реализации языка pascal нет готовой функции для арксинуса и опишем арксинус на основе известного тригонометрического соотношения: тогда область допустимых значений: |c|< 1, a≠0 function arcsin(x: real): real; begin   arcsin : = arctan(x / sqrt(1 - sqr( end; var   a, b, c, x: real; begin   write('введите через пробел значения a,b,c: ');   readln(a, b, c);   if (c > = 1) then writeln('решения нет, c> =1')   else if a = 0 then writeln('решения нет, a=0)')   else writeln('x=', arcsin(c) / sqrt(1 - sqr(x)): 0: 5) end. тестовое решение: введите через пробел значения a,b,c: 3.25 -1.7 0.146 x=0.14652