Массивы

[Bleize]

Найти значение 3-го по величине элемента и значения всех элементов массива, которые его превышают, заменить на найденное значение

P.S. При выполнении работы используются статические массивы. Для организации статических массивов с псевдопеременными границами необходимо объявить массив достаточно большой длины N. Затем пользователь вводит реальную длину массива (не больше N) и работает с массивом той длины, которую он сам указал. Остальные элементы (хотя память под них и будет выделена) не рассматриваются. При уменьшении или увеличении длины массива необходимо изменять его реальную длину.

[Mad_Cat]

Найти значение 3-го по величине элемента и значения всех элементов массива, которые его превышают, заменить на найденное значение

for i:=1 to n do
if a[i]>a[3] do a[i]:=a[3];

[unbanned]

Сообщение от Mad_Cat

for i:=1 to n do
if a[i]>a[3] do a[i]:=a[3];

там в задании не третьего по порядку, а третьего по величине

[Bleize]

for i:=1 to n do
if a[i]>a[3] do a[i]:=a[3];
Oo, красавец просто)

[unbanned]

program z;

var
  m: array [1..256] of integer;{здесь можно поставить число больше, в зависимости от того какое будет N}
  i, n, im: integer;
  m1, m2, m3: integer;

begin
  writeln('введите длинну массива:');
  if n > 256 then writeln('ошибка') 
  else begin
    readln(n);
    randomize;                 // сделал 
    for i := 1 to n do              // автозаполнение для теста
      m[i] := random(100) + 1;       // если не надо, можешь поставить заполнение с клавиатуры
    writeln('исходный массив:');
    for i := 1 to n do 
      writeln('m', i, '=', m[i]);
    for i := 1 to n do 
    begin
      if m[i] > m1 then m1 := m[i];
      if (m[i] > m2) and (m[i] <> m1) then m2 := m[i];
      if (m[i] > m3) and (m[i] <> m2) and (m[i] <> m1)  then 
      begin
        m3 := m[i];
        im := i; {если не надо выводить 3-й элемент по величине, то это лишнее}
      end;
    end;
    for i := 1 to n do
      if m[i] > m3 then m[i] := m3;
    writeln('полученный массив:');
    for i := 1 to n do
      writeln('m', i, '=', m[i]);
    writeln('3-й по величине элемент массива: ', 'm', im, '=', m3);{и это соответственно тоже}
  end;
end.