Дан массив из 20 целых чисел, все его элементы разделить на первый элемент.

var a: array [1..100] of real; i,n: integer;

t: real; 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;   end;  

  t: =a[1]

  for i: = 1 to n do begin      a[i]: =a[i]/t ;       write(a[i]: 4);       if i mod 10=0 then writeln;   end;   end.

дело в том, что цифра это знак, и буква это знак.

разделим монеты на кучки 1002 1002 и одна монета

1-е взвешивание сравниваем 1002 и 1002

если они одинаковые то они настоящие и значит осталось сравнить одну монету с какой-нибудь из этих кучек и выяснить тяжелее она или легче

если одна из куч тяжелее то ее делим пополам и снова взвешиваем

если половинки оказались одинаковые, значит они настоящие и фальшивая монета легче настоящей, а если разные то фальшивая монета тяжелее настоящей