1. даны два действительных числа х, у. найти max(min(x-y, y), x

может быть, я тебя не так понял. значит 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.

 

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

удачи!

1. современное решение // pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в матрице: ');   var m: =readinteger('количество столбцов в матрице: ');   writeln('*** исходная матрица [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*a.colcount*'-');   writeln('строка с наибольшей суммой: ');   a.row(a.rows.select(r-> r.sum).toarray.indexmax).println end. пример количество строк в матрице: 6 количество столбцов в матрице: 9 *** исходная матрица [6,9] ***   54 -83  45 -44 -52  57 -90 -71 -70     8  99 -27  72  46  28 -18  36  48   -85  24 -57 -67  63 -69  52  44 -99   -34 -44  -1  45  48  63  68  48  98   27  84  15  70  37 -70    1  24 -60   -82 -63    6 -59  91 -64  84  65  66 строка с наибольшей суммой: 8 99 -27 72 46 28 -18 36 48 2. школьное решение в стиле языка турбопаскаль 1983г const   nn=20; var   i,j,n,m,k,s,max: integer;   a: array[1..nn,1..nn] of integer; begin   write('количество строк в матрице: '); read(n);   write('количество столбцов в матрице : '); read(m);   writeln('*** исходная матрица [',n,',',m,'] ***');   randomize;   max: =-100;   for i: =1 to n do begin       s: =0;       for j: =1 to m do begin           a[i,j]: =random(199)-99;           write(a[i,j]: 4);           s: =s+a[i,j]           end;       writeln;       if s> max then begin           max: =s; k: =i           end       end;   for i: =1 to 4*n do write('-');   writeln;   writeln('строка с наибольшей суммой: ');   for j: =1 to m do write(a[k,j],' ');   writeln end.

Const     n = 3;     m = 4; var     a: array[1..n,1..m] of integer;     i,j,imax: integer;     s,max: real; begin randomize; writeln('исходная матрица: '); for i: = 1 to n do       begin       for j: = 1 to m do               begin               a[i,j]: =random(21)-10;               write(a[i,j]: 3,' ');               end;       writeln       end; max: =0; imax: =1; for j: = 1 to m do       max: =max+a[1,j]; for i: = 2 to n do       begin       for j: = 1 to m do               s: =s+a[i,j];       if s> max then             begin             max: =s;             imax: =i;             end;       end; write('искомая строка: '); for j: = 1 to m do       write(' ',a[imax,j]) end. пример работы программы: исходная матрица:   8    0  -7  -1   -2 -10  -4 -10   5  -1  10  -6 искомая строка: 8 0 -7 -1