Одноимёные массивы, Пишу в исходнике(нечего не знаю :))) Опции

[Пап]

Дан массив P(m), m<=17. Найти количество К всех элементов, предшествующих первой отрицательной компаненте, и их сумму S. Вывести на экран исходный массив и велечины K и S.

Мне она нужна очень срочно(к завтрашнему дню)
Если не всё накиньте хоть что-нибудь .
Заранее спасибо.

[volvo]

Что здесь было сложного?

Const m = 17;
Var 
  p: Array[1 .. m] Of Integer;
  i, k, s: Integer;
Begin
  For i := 1 To m Do
  Begin
    Write('p[', i, '] = '); readln(p[i]);
  End;

  i := 1;
  While p[i] >= 0 Do
  Begin
    Inc(k); Inc(s, p[i]);
    Inc(i)
  End;

  For i := 1 To m Do
    Write(p[i]:4); Writeln;
  WriteLn( 'Сумма = ', s, ' , количество = ', k )
End;

P.S. Проверь, я набирал без Паскаля - мог ошибиться ;)

[Пап]

В общем ничего(кроме того что я понятия не имею что такое компанента). А проверить я врядли смогу я комп отформатировал сегодня с утра, он у меня почти пустой, хотя щя скачаю паскаль в лакалке. Спасибо за прогу.