Ввод элементов массива с использованием генератора случайных чисел, печать
элементов
Один из ввода элементов массива - ввод случайными числами. Перед вами текст
программы, которая вводит элементы массива и распечатывает их. Набрать это программу
в Паскале (комментарии в {} можно не печатать). Протестировать.
var a:array[1..10] of integer; {объявление массива}
i:integer;
Begin
for i:=1 to 10 do {ввод элементов массива случайными числами от -10 до 10}
a[i]:=random(21)-10;
for i:=1 to 10 do {печать элементов массива в одну строку}
write(a[i]:4); {:4 - число знакомест для записи целых чисел, можно
использовать write(a[i]," ")}
End.
Выполнить следующие задания на основе этой программы. Прикрепить файл с ответом.
Описать числовой массив на 15 элементов и заполнить его случайными целыми числами,
каждое из которых лежит в пределах от 10 до 100.
а) Распечатать значения элементов массива в строку;
б) Распечатать только элементы, кратные 3.
в) Распечатать элементы, стоящие на четных местах.
Все задания выполнять в одном файле. Чтобы ответы для каждого задания отделялись
друг от друга печатайте в программе между ними "Writeln;".
Также можно использовать равносильное выражение log2(1/p)
Вероятность взятия чёрного шара равна 10/20 = 0,5, белого - 4/20 = 0,2, жёлтого такая же - 0,2, красного - в 2 раза меньше - 0,1.
Значит, если мы взяли чёрный шар, мы получили кол-во информации log2(1/0,5) = log2(2) = 1 бит,
если белый, то log2(1/0,2) = log2(5) = 2,3219 бит
если жёлтый, то столько же 2,3219 бит
если красный, то log2(1/0,1) = log2(10) = 3,3219 бит