Одномерный массив, задача, зайдите сюда программисты =(

[fo_off]

Ребят, вот такая задача, помогите, пожалуйста =( буду благодарен!!

Дан одномерный массив Х(N) (N<=60). На место максимального элемента массива записать сумму последних К элементов массива.
Вычислить среднее арифметическое отрицательных элементов полученного массива. Результаты вывести на экран. Значение К вводится пользователем.

[Mad_Cat]

<-- контакты там! Буду рад помочь!

[svkpro]

вот код на паскале:

const
  nmax=60;
var
  a: array[1..nmax] of integer;
  n,i,im,k,sum1,sum2,c: integer;
begin
  repeat
    write('Введите размер массива n (n<=60): ');
    readln(n);
  until n in [1..60];
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    a[i]:=random(199)-99;
    write(a[i],' ');
  end;
  writeln;
  write('Введите число k: ');
  readln(k);
  im:=1;
  for i:=1 to n do
  begin
    if i>n-k then sum1:=sum1+a[i];
    if a[i]<0 then
    begin
      sum2:=sum2+a[i];
      inc(c);
    end;
    if a[i]>a[im] then im:=i;
  end;
  a[im]:=sum1;
  writeln('Среднее отрицательных = ',sum2/c:0:2);
  writeln;
  writeln('Полученный массив:');
  for i:=1 to n do write(a[i],' ');
end.

[p51x]

опять кросспостинг... пора уже банить автоматом таких