begin
var a := ArrRandom(ReadInteger('n ='), -15, 15);
a.Println;
a.ForEach(x -> begin if x < 0 then Print(x) end)
end.
Где высказывания? Напиши их, как отвечать-то?
1) двоичным или цифровым кодирование
2) нет (1 и 0)
3) да
4) да
5) 8 байт
6) 16 бит
7) 1024 кодов
8) 3 бита
9) файл таблиц
var x:real ;
begin
readln(x);
if x>3 then writeln((x*x+2)/(x-3))
else writeln (2*x*x-5)
end.
Так, если двоичная система счисления.