Help сделайте задание , на подобе такого , переделайте чутка пожалуйста

а как его в этих 2 стоках заменить? if (a[j] < a[i]) then , if (a[i] mod 2 = 1) then

читается так: Если(if) Логическое выражение верно, то(then)

Если сравнивать с жизнью ты предлагаешь мне, Из многоэтажного дома убрать 4й этаж

Да и зачем менять? У тебя на скриншоте точно такая же конструкция

хм.. простите, не видел.

var  a: array[1..100] of integer;  n, i, j, tmp: integer;begin  Write('Введите количество чисел:');  Readln(n);  for i := 1 to n do  begin    a[i] := 2 + random(99);    if (a[i] mod 2 = 1) then      inc(a[i]);    write(a[i], ' ');  end;  Writeln();  for i := 1 to n do    for j := i to n do      if (a[j] < a[i]) then      begin        tmp := a[i];        a[i] := a[j];        a[j] := tmp;      end;  for i := 1 to n do    Write(a[i], ' ');end.