program kek;const N=10;var m: array[0..N] of integer;var t,o: integer;var c, k1,k2,i, min, max: integer;beginrandomize;for i:=0 to N dom[i]:=random(50);min:=m[0]; max:=m[0]; //тут m - заданный в основной программе массив.for i:= 0 to N do begin//тут уточнение: N - количество элементов массива.if (m[i]>max) then beginmax:=m[i];k1:=iend;if (m[i]<min) then beginmin:=m[i];k2:=iendend;writeln(m[k1],' ',m[k2]);c:=min;min:=max;max:=c; // тут можно короче, но для наглядности...m[