Помогите сделать это в ПАСКАЛЬ АБС

Question

Помогите сделать это в ПАСКАЛЬ АБС

---

Answer 1

Var
a:array[1..10] of integer;
i, j:integer;
begin
  randomize();
  for i:= 1 to 10 do
  begin
    a[i] := random(1000);
    if (a[i] mod 2 = 1) then
      inc(a[i]);
  end;
  for i := 1 to 10 do
    for j:= i to 10 do
      if a[i] > a[j] then swap(a[i],a[j]);
  for i := 1 to 10 do  
    Write(a[i], ' ');
end.

Answer 2

program HelloWorld;

var n:array [1..10] of integer;

var c,d: integer;

var j,i: SmallInt;

 

begin

 //for i:=1 to 10 do

 c:=0;

 while c<10 do </span>

 begin

     d:=random(1000);

     if d mod 2 = 0 then

     begin

        c:= c+1;

        n[c] := d;

      end

 end;

 

 

 //сортировка

for i := 1 to 9 do

  for j := 1 to 9 do

    if n[j] > n[j + 1] then begin

      c := n[j];

      n[j] := n[j + 1];

      n[j + 1] := c;

    end;

 

for i:=1 to 10 do

  writeln(n[i])

end.

Comments

Генерируются случайные числа, нужны четные. Сортировка ошибочка, т.к. обращаемся к элементу за границей массива( n[i+1] при i = 10)

---

поправил