1) Берем лист бумаги, разлиновываем на квадратики, в каждый вписываем числа, начиная от 1. Кидаем на листик монетку. В какой квадрат упадет, то число и выбираем.
2) Берем несколько игральный кубиков. Кидаем, подсчитываем сумму выпавших очков.
3) Берем колоду 36 карт, вытаскиваем карту наугад. Туз 1, валет 2, дама 3, король 4, 10- 5, карты от 6 до 9 - соответственно 6-9.
13) 2
14)1
15)3
16)1
17)2
18) 2,3,4,6
19) 1. - в, г, д
2.- а,б,в
20) 1.- а, г
2.- б,в
21) а
22) а
а) Луна не является спутником Венеры.
б) Число 5 простое или Луна - спутник Венеры, или верны оба высказывания.
Const
N = 8;
Var
A:array[1..N] of integer;
i:integer;
S:real;
Begin
Write('Введите массив A(',N,'): ');
For i:= 1 to N do
Begin
Read(A[i]);
S:=S+A[i];
End;
WriteLn('Sr = ',S/N);
End.
Пример работы программы:
Введите массив A(8): 1 2 3 4 5 6 7 8
Sr = 4.5