Составить программу, которая меняет элементы массива на противоположные по знаку, массив заполняется с клавиатуры. решить на паскале.

PascalABC

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.

 другое арбуз почтизнаток  (469) в чем отличие информационных ресурсов от материальных? какие есть основные виды национальных информ. ресурсов? закрыт 5 лет назад в лидеры лучший ответ элявысший разум (175060) это виды:   библиотечные ресурсы  архивные ресурсы  научно-техническая информация  правовая информация  информация государственных (властных) структур  отраслевая информация  финансовая и информация  информация о природных ресурсах  информация предприятий и учреждений  на фоне продолжающегося рос­та производства новых видов товаров начался процесс увеличения доли информационных ресурсов по отношению к материальным. информационные ресурсы в различных формах стали самостоятель­ными объектами (идеи, технологии и ноу-хау, научная и техническая ) [2].  широкое распространение информационных ресурсов дало основание говорить о возникновении информационного общества. информационные ресурсы имеют качественное и принципиальное отличие от материальных, вследствие неприменимости к ним закона сохранения материи. отдавая информационный ресурс, лицо вовсе не лишается его, то есть может использовать его сколько угодно раз.  исследуя и оценивая новые информационные и интеллектуальные ресурсы, современные эконо­мисты, едва успевают их описать и дать некоторые характеристики.

Const   n = 50; // количество чиселvar   k: array [1..n] of integer;   i, j, n1, n2, minr, a, b: integer; begin   writeln(n, ' ', ': d');   a : = random(1000);   b : = random(1000);   minr : = 10000;   for i : = 1 to n do       k[i] : = a + random(b);   for i : = 1 to n do       for j : = 1 to n do           if ((abs(k[i] - k[j])) < minr) and (k[i] < > k[j]) then           begin               minr : = abs(k[i] - k[j]);               n1 : = i;               n2 : = j;           end;   writeln(n1, ' ', n2); end.