Помогите с задачкой плиз

[Небесный]

Сообщение от Xardas

Честно говоря, мне б было стыдно обращаться с такой задачей...

А, мне бы не было стыдно. Ты обращаешься на форум с некотороми непосильными для тебя задачами? Ясно, что к своему уже опыту, ты сначала прошвирнешься по поиску, там есть много чего, но если вдруг нету, ты создаешь тоже тему. Если для этого парня задача с рандом, такая же тяжелая, как для тебя написать ОС на паскале, зачем тогда писать такое?
Форум создан для общения и помощи. Мы так и будем сидеть в яме, пока не научимся уважать учащегося!

ЗЫ: Xardas, конечно нужно учиться пользоваться поиском хотябы, не только на форуме, но и в гугле.

[puporev]

Вот написал я в посте №6.

А если 12 раз выпадет число скажем 5?

Никто даже внимания не обратил, а ведь задача не просто на рандом, в ней не говорится о получении 12 случайных чисел из диапазона [1,90], а имеется 90 чисел и из них нужно случайным образом выбрать 12. А это не просто рандом, а рандом без повторений, и делается это так (алгоритм позаимвствовал у Карась):

uses crt;
var  m,i,j,x:byte;
     f:boolean;
     a:array[1..12]of byte;
begin
clrscr;
randomize;
m:=2;
for i := 1 to 12 do
  begin
    repeat
      f:=false;
      x:=Random(90)+1;
      for j:=1 to m do
      if a[j]=x then f:=true;
    until f=false;
    a[i]:=x;
    m:=m+1;
  end;
for i:=1 to 12 do
write(a[i],' ');
readln
end.

[Rusl92]

Не, погодите, а значения элементов массива откуда берем? Они же не заданы?

[[Smarik]]

Сообщение от puporev

a[i]:=x;
end.

Вот тут заполнение массива

[Rusl92]

if a[j]=x then f:=true;
А как мы тогда сравниваем?

[Plague]

Множество! Знаете что такое?

var a,i:byte;
   m:set of byte;
begin
m:=[];
randomize;
for i:=1 to 12 do
begin
repeat
a:=random(90)+1;
until not (a in m);
include(m,a);
write(a:4);
end
end.

[Олег093]

а как сделать так чтобы после заполнения матрицы сумма всех ее элементов была допустим 8,т.е.рандомно заполнить числами так,чтобы сумма всех элементов была равна 8...

[New man]

Для ТС

program Ameba;
var
   mn:Set of integer;
   i,j:integer;
begin
   mn:=[];
   i:=0;
   while i<12 do
     begin
        j:= random(90)+1;
        if not (j in mn) then
           begin
              writeln(j);
              Include(mn,j);
              inc(i);
           end; 
     end;
    readln;
end.

[Олег093]

а где тут эта сумма?