Uses Crt;
Const
N = 15;
Var
B:array[1..N] of integer;
i:integer;
S:real;
Begin
ClrScr;
Randomize;
S:=0;
Write('B(',N,'):');
For i:= 1 to N do
Begin
B[i]:=random(71)+130;
Write(' ',B[i]);
S:=S+B[i]
End;
WriteLn;
WriteLn('Sr = ',S/N:0:2);
ReadLn
End.
7 там надо минимум 20 символов поэтому пишу это пустое предложение
Ответ:
Ответ а, другие если подставить, то они не подходят, у тебя между скобками конъюнкция, значит в обеих скобках должно быть 1.
8 символов, так как 1 байт умещает 1 букву, в одном байте 8 бит, 1 бит - один символ
Вывести в случайном порядке 10 чисел в промежутке от -5 до 5.
Программа: Pascal ABC
тема: Функция random.