1000 байтов,1024 бита,10 битов,1 байт, 1 бит.(1 байт=8 бит)
Var
A:array[1..33] of integer;
i:integer;
Begin
For i:= 1 to 33 do
Begin
A[i]:=random(201)-100;
Write(A[i],' ');
End;
End.
54 в 7ричной =1*4+5*7=39 в десятичной
320 в 5ричной=25*3+10=85 в десятичной
39+х=85
х=46
46 в десятичной =2Е
ответ: 2Е
Без операционной системы. Условно-бесплатные, пробные
var a:array of integer;
i,n,k:integer;
begin
write('Введите количество элементов массива: ');
readln (n);
a:=new integer[n];
write ('Массив: ');
for i:=0 to n-1 do
begin
a[i]:=random(199)-99;
if a[i] < 0 then k:=k+1;
write (a[i]:5);
end;
writeln;
write ('Количество отрицательных элементов ',k)
end.