Какие типы программ по вывода на экран бывают?

random это  функция  возвращающая случайные числа от 1 до указанного диапазона, но отрицательных чисел тут нет, так что воспользуемся приемом:

a: = random(101)-50;       {числа от -50 до 50}

b: = random(101)-200;     {от -100 до 100}

а теперь выведи на экран все положительные, а затем отрицательные элементы - проверяй на больше/меньше нуля!

страус- самая крупная в мире птица. не летает

var a: array[1..100] of integer;

i,s: integer;

begin

  randomize;   n: =20;   for i: = 1 to n do begin      a[i]: =random(n*10)- 10*n div 2 ;       write(a[i]: 4);       if i mod 10=0 then writeln;

      if a[i]> =0 then s: = s+a[i];   end;

  for i: = 1 to n do begin

      if a[i]< 0 then a[i]: =s;

      write(a[i]: 4);       if i mod 10=0 then writeln;

  end;

end.

1) нахождение эталона (детали которые весят одинаково)

сравниваем 2 детали. если они равны, то они эталоны, если не равны, то эталоны те что не взвешивались

2) сравниваем одну деталь из эталонной пары с деталью из нежталонной пары.

если равны, то искомая деталь, это та из неэталонной пары которая не взвешивалась

если не равны, то та деталь из неэталонной пары, которая взвешивалась