Question

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

Answer 1

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.

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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