По информатике! напишите программу, которая производит обмен значений переменных х, у, если х больше у. пример входных данных пример выходных данных x> > 5 x=5 y> > 6 y=6 x> > 6 x=5 y> > 5 y=6

Var x,y,z: integer; begin writeln('введите x и y'); read(x,y); i f x> y then begin z: =x; x: =y; y: =z; end; writeln(x,y: 3); end.

Var   a: array [1..10] of integer;   max, min, k, i: integer; begin   max : = -15;   k : = 0;   min : = 0;   for i : = 1 to 10 do begin     a[i] : = random(30) - 15;     write(a[i], ' ');     if (a[i] > = max) then begin       max : = a[i];       inc(k);     end else       k : = 0;     if (a[i] < min) and (a[i] > = 0) then       min : = a[i];   end;   writeln;   writeln(max, ' - максимальный элемент; ', k, ' - количество максимумов; ', min, ' - минимальный положительный элемент.'); end.

Const n=6; m=4; var  a: array[1..n,1..m] of integer; i,j,c: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to m do   begin   a[i,j]: =random(50);   write(a[i,j]: 4);   end;   writeln;   end; for j: =1 to m do   begin   c: =a[3,j]; a[3,j]: =a[5,j]; a[5,j]: =c;   end; writeln('полученный массив: '); for i: =1 to n do   begin   for j: =1 to m do write(a[i,j]: 4);   writeln;   end; end. пример: исходный массив:   25   4   33   17   19   23   42   9   36   40   1   48   21   44   13   18   38   29   8   7   24   13   5   13 полученный массив:   25   4   33   17   19   23   42   9   38   29   8   7   21   44   13   18   36   40   1   48   24   13   5   13