var a:array of real; i,n:integer; begin write('Задайте размер массива = ');readln(n); setlength(a,n); for i:=0 to n-1 do readln(a[i]); writeln('Исходный массив: ',a); for i:=0 to n-1 do a[i]:= -a[i]; writeln('Полученный массив: ',a); end.
Кто такие вопросы кривые дает? Хотя не удивительно почему столько тупых программистов в наше время) Если тактовую частоту увеличить в два раза то и производительность вырастит в два раза. А разрядность в три раза не увеличить т.к их всего два и они не влияют на производительность процессора.