По следующему описанию: Const M = 10;
Var C : Array [0..M] of Integer;
B : Array [0..M] of Boolean;

построить массив В по заданному массиву С: элементу В[i] присвоить True, если С[i] - неотрицательное число, и присвоить False в противном случае.

program z1;

Const M = 10;

Var C : Array [0..M] of Integer;

B : Array [0..M] of Boolean;

i:integer;

begin

write ('Массив С: ');

for i:= 1 to M do

begin

C[i]:=random (19)-9;

write(C[i]:7)

end;

writeln;

write ('Массив B: ');

for i:= 1 to M do

begin

B[i]:=C[i]>0;

write(B[i]:7)

end

end.

Объяснение:

C[i] - не отрицательное число, т.е. положительное

B[i]:=C[i]>0;

В зависимости от этого и присваивается значение массиву В.