1000 раз бросали 2 игральные кости. Каждый раз сумма на костях была радомной, например. 2+1=3, 4+6=10 и т.д. Посчитать 1000 рандомных сумм получившихся в рез-те сложения двух рандомных чисел 1-6(т.к. на одном кубике 6 граней) и вывести на экран, сколько раз повторилась одна сумма из 1000 "бросков".
задачка легкая, туплю жестко)v
someone's dream, это не русский язык!
const dices=6;
var
Dice1,dice2:byte;
A:array [1..12] of integer;
i:integer;
begin
for i:=1 to dices*2 do a[ i ]:=0;
randomize;
for i := 1 to 1000 do
begin
dice1:=random(dices)+1;
dice2:=random(dices)+1;
inc(a [ dice1+dice2 ] );
end;
for i:=1 to dices*2 do writeln (i,' = ',a[ i ]);
readln
end.
Сумма может быть от 1+1 до 6+6, то есть от 2 до 12 
Заводим массив под это дело: var m:array[2..12] of Integer;
Запускаем цикл на 1000 интераций и делаем вычисления:
for i:=1 to 1000 do begin
a:=random(6)+1;
b:=random(6)+1;
inc(m[a+b]);
end;
Потом выводим ответ, на основе массива m.
За полный код - 100 рублей!)
вопрос не ах! имею ввиду некорректность
нельзя называть сумму двух рандомных чисел рандомной, потому что эта сумма определятся уже этими числами
⇢