Так имеется ввиду? Рад помочь, 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.
Юра - похоже любитель бульдогов.
Так как в описании присутствуют 3 человека - это Юра, Коля и Катя.
Исходя из этого, Юра отличается от всех, так как у него разные вкусы с Колей, и разные предпочтения с Катей.
Ира осталась в сторонке....
То бишь главный бунтарь в этой шайке Юра
Могу написать типо вводиш 1 и пишет форма, вводишь 2 пишет тик и т.д. сойдет?
Количество уровней интенсивности = 2^16 = 65536