Задан одномерный массив а(n) (n< =60). на место минимального элемента массива записать сумму последних к элементов массива. если а[1]> =0, то умножить все элементы этого массива на квадрат минимального элемента данного вектора, а если а[1]< 0, то умножить все элементы на квадрат максимального элемента вектора. полученный массив распечатать. значение к вводится пользователем.

Var    a: array[1..60] of integer;   k,i,min,ind, max,sum: integer; begin   sum: =0;   readln(k);   randomize;   writeln('исходный массив: ');   for i: =1 to 60 do   begin       a[i]: =random(15)-5;     writeln('a[',i,']=',a[i]);     end;   min: =32600;   max: =-32600;   for i: =1 to 60 do //ищем минимальный элемент   begin     if a[i]< min then     min: =a[i];     ind: =i;   end;   for i: =1 to 60 do //ищем максимальный элемент      if a[i]> max then         max: =a[i];   for i: =60 downto 60-k do //сумма последних k  элементов    sum: =sum+a[i];   a[ind]: =sum; if a[1]> =0 then      for i: =1 to 60 do     begin        a[i]: =a[i]*sqr(min);       writeln('a[',i,']=',a[i]);     end   else    for i: =1 to 60 do     begin       a[i]: =a[i]*sqr(max);       writeln('a[',i,']=',a[i]);       end; end.

93,84,75,66,39,48,57