Дан массив вещественных чисел x[8]. каждый отрицательный элемент заменить на его абсолютную величину.

For i: =1 to 8 do  if a[i]< 0 then    a[i]: =a[i]*(-1);

К1 - количество орехов в первой корзине к2 - количество орехов во второй корзине к3 - количество орехов в третьей корзине дано: к2 = к1 - 38 (из первой корзины убрать 38 орехов, в ней останется столько орехов сколько их во второй корзине) к1+к2 = к1 + 54 (если добавить 54 ореха, то станет столько сколько в первой и во второй корзинах вместе) к3 = к1 - 27 (в третьей корзине на 27 орехов меньше чем в первой корзине.) и так, узнаем сколько в первой корзине. в уравнение к1+к2 = к1 + 54 подставим значение к2 = к1 - 38, чтобы иметь одну неизвестную. имеем уровнение к1+ (к1 - 38) = к1 + 54. перемещаем все на одну сторону к1+(к1-38)-к1-54=0 сокращаем к1 и -к1. (к1 - 38) - 54 = 0 к1 - 38 = 54 к1 = 92. т.е. в первой корзине 92 ореха. во второй к2 = 92 - 38 = 54 в третьей к3 = 92 - 27 = 65

Uses crt; var a,b,c,x,max,min,sum,pr: integer; begin       write('введите число:   ');       readln(x);       a: = x div 100;       b: = x div 10 mod 10;       c: = x mod 10;       sum: =a+b+c;       pr: =a*b*c;       if a> b then begin         min: =b;         max: =a;       end       else begin           max: =b;           min: =a;       end;       if min> c then min: =c;       if max< c then max: =c;       writeln('сумма цифр числа: ',sum);       writeln('произведение цифр числа: ',pr);       writeln('максимальная цифра: ',max);       writeln('минимальная цифра: ',min); end.