Яв 9 классе сделайте как в 9выведите max и min значения массива и поменяет их местамия пыталась но там ошибка,со значением,выглядит примерно как на фото​

var

  mas: array[0..11] of integer;

  a, c, b: integer;

begin

  for a : = 0 to 9 do  

  begin

    mas[a] : = random(-50, 50); //pascalabc.net позволяет задавать диапазон случайных чисел  

    write(mas[a], ' ');

    if mas[10] > mas[a] then begin mas[10] : = mas[a]; b : = a; end;

    if mas[11] < mas[a] then begin mas[11] : = mas[a]; c : = a; end;

  end;

  writeln;

  writeln('min[', b, '] = ', mas[10]);

  writeln('max[', c, '] = ', mas[11]);

  a : = mas[b];

  mas[b] : = mas[c];

  mas[c] : = a;

  for a : = 0 to 9 do write(mas[a], ' ');

end.

Объяснение:

символ в коде Unicode кодируется 16-ю битами, 1 символ в коде КОИ-8 — 8-ю битами. Количество символов при перекодировке не меняется, поэтому обозначим его за x.

Составим уравнение:

16x - 8x = 480

Найдём 8x=480

x=860

Надеюсь правильно