Программа в паскале

компьютеры программирование программы софт паскаль

1000 раз бросали 2 игральные кости. Каждый раз сумма на костях была радомной, например. 2+1=3, 4+6=10 и т.д. Посчитать 1000 рандомных сумм получившихся в рез-те сложения двух рандомных чисел 1-6(т.к. на одном кубике 6 граней) и вывести на экран, сколько раз повторилась одна сумма из 1000 "бросков".

задачка легкая, туплю жестко)
Ответы:
var temp,i : integer;
mas : array [1..6] of integer;
begin
for i:=1 to 1000 do begin
temp := random(6)+1;
inc(mas[temp]);
end;


17 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.