var
m : array [1..10] of Integer;
i : Integer;
begin
Writeln('Введите массив: ');
for i := 1 to 10 do
begin
Write('m[', i, '] = '); Readln(m[i]);
end;
Writeln('Отрицательные: ');
for i := 1 to 10 do
if m[i] < 0 then Writeln(m[i]);
end.
.к. каждый символ может иметь 64 значения, то есть <span> , то на каждый символ выделяется 6 бит(от 0 до 63, всего 64 варианта).Всего символов - 100. Значит всего нужно 6*100=600бит=75байт</span>
1. Е3
2.=B3*B3-4*B2*B4
3.C1=-6 C2=7 C3=-79 D1=1 D2=87 D3=1:87