2. Программа получает 3 три случайные числа от 0 до 9. Вывести на экран эти числа и их среднее арифметическое.

3. Пользователь вводит число N. Вывести на экран через запятую числа, равные N-1, N, N+1.

Var

a, i:integer;

m:real;

begin

Randomize;

m:=0;

Write ('Получены числа: ') ;

for i:=1 to 3 do

begin

a:=Random (10) ;

Write (a,' ') ;

m:=m+a

end;

Writeln;

m:=m/3;

Writeln ('Их среднее арифметическое равно ', m:0:3)

end.

Тестовое решение:

Получены числа: 5 3 3

Их среднее арифметическое равно 3.667

var

n:integer;

begin

Write ('Введите целое число: ') ; Read (n) ;

Writeln (n-1,', ', n,', ', n+1)

end.

Тестовое решение:

Введите целое число: 35

34, 35, 36