Решить в pascal: даны действительные числа a, b, c, d, если ab> c> d, то все числа увеличатся на 2; в противном случае числа оставить без изменения

может быть, я тебя не так понял. значит max(y,x) означет что надо вычислить что больше 'x' или 'y'? соответственно и min.

var x,y,max,min: integer;

begin

writeln('введите x,y через пробел');

read(x,y);

if x-y> y then min: =y else min: =x-y;

{если х-у> y тогда переменной min присваеваем значение y, в другом случае min присваеваем значение x-y(если "=" тоже, потому что значения будут одинаковы)}

if min> x then max: =min else max: =x; {примерно также}

writeln(max);

end.

если что - пиши в личку.

удачи!

var a: array [1..20] of integer; i,s1,s2: integer;

begin

for i: =1 to 20 do begin

                              writeln('введите элемент ',i); read(a[i]);

                                if i mod 2=0 then s1: =s1+a[i] else

                                                            s2: =s2+a[i];

                          end;

writeln('среднее ариф. четных ',s1/20,'; а нечетных ',s2/20);

readln;

end.

ну как всегда: вопросы - в личку)