Var a:array[1..10] of Integer ;
p,i:integer;
Begin
p:=1;
WriteLn('Массив');
For i:= 1 to 10 do
begin
a[i]:=Random(20)-10;
Write(a[i]:3);
if a[i]<0 then p:=p*a[i];
end;
WriteLn;
WriteLn('Произведение отопительных элементов = ',p)
end.
<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)</span>
begin
var (a,b):=(Random(0,10),Random(0,10));
if a=b
then Println(a,'=',b)
else Println(Random(0,10),Random(0,10));
end.
1)Двои́чный код — это способ представления данных в виде кода, в котором каждый разряд принимает одно из двух возможных значений, обычно обозначаемых цифрами 0 и 1. Разряд в этом случае называется двоичным разрядом.