Var
n: array[1..12] of integer;
i: integer;
begin
for i:=1 to 12 do
begin
n[i]:=random(31)-20;
writeln('n[', i, '] = ', n[i]);
end;
for i:=1 to 12 do
if n[i]<0 then write(i, ' ');
<span>end.</span>
Второе нужно перевести минуты в секунды 4мин=240сек потом 512*240=12880з потом в мегабайтах 1.61
Ответ Alt+tab быстрый переход в окно
Самая мелкая единица измерения информации-бит