Жили-Были клавиатура, монитор, память и процессор, жили они дружно пока не возник спор кто из них главнее.Каждый начал приводить аргументы. "Я лучше потому-то без меня-клавиатуры мы бы не смогли печатать, то есть не смогли бы передавать информацию на компьютер"- сказала клавиатура , "Без меня-монитора мы бы не смогли видеть эту самую информацию"- говорил монитор, "Без меня- памяти мы бы не могли сохранить ее (информацию)"- протараторила память, "А без меня-процессора и вовсе компьютер не стал бы работать"- заявил процессор. И клавиатура, и монитор, и память, и процессор - все они неотъемлимые части компьютера, без них он бы не работал. Не стали они больше ссориться, и жили дружно и счастливо!
Как то так, можно улучшить конечно, но числа генерируются в нужном интервале, если найду что получше, то перепешу
var
a:array[1..1000] of real; i,x, j:integer; cur:real; l:text; label y;
begin assign(l, 'output.txt'); rewrite(l); randomize; for i:= 1 to 999 do begin y: cur := 0.96743612142/( random(24)+random(11)+random(7)); x:= random(100); if x > 20 then if cur < 0.4 then cur:= cur * random(5); if (cur = 0) or (cur > 1)then goto y; a[i]:=cur; end; for i:= 1 to 999 do for j:= 1 to 999 do if a[j] > a[i] then swap(a[j], a[i]); for i:= 1 to 999 do writeln(l, a[i]:0:16); close(l);
Правильный ответ - да