Даны целые числа а1 , а2 .... .Известно , что а1>0 и что среди а1 , а2 ... есть хотя бы одно отрицательное число
.Пусть а1, ... аn - члены данной последовательности ,предшествующие первому отрицательному члену (n заранее известно).Получить max((а1)^3) ,.....,((an)^3).

Program Zadanie4;
Uses wincrt;
var i,n,s:integer;
var a:array[1..100] of integer;
Begin
s:=0;
 Writeln('Vvedite kolichestvo elementov');
  Read(n);
   Writeln('Vvedite elementy');
 For i:=1 to n do
  read(a[i]);
 While (a[i]>0) do
  s:=(a[i]*a[i]*a[i])+s;
   Writeln('Polucheny dannye:',s)
End.

где ошибка?

Ошибки в программе нет, только она написана для другой задачи: найти сумму членов последовательности, предшествующих первому отрицательному или нулевому элементу последовательности.

Как минимум - "найти сумму КУБОВ членов последовательности..."

Усвоил.

Можете помочь еще вот с чем.Надо удалить из строки последний знак препинания.
вот то что получилось только оно почему то удаляет не последний а все.

Program Zadanie6;
uses wincrt;
 VAR STR:string;
      L,I,K:INTEGER;
      M:SET OF CHAR;
Begin
  M:=['.',',','!','?','-',';',':'];
   Writeln ('Vvedite stroku: ');
    Readln (STR);
     L:=Length(STR);
      For i:=1 to l do
       If STR[I] in M then
      Delete(str,i,1);
   Writeln('Poluchena stroka:',str)
End.

Вообще-то это не ОНО, а ты удаляешь все. Надо было удалять последний - сделал бы так:

      For i:=1 to l do
       If STR[I] in M then K := i;
      Delete(s, k, 1);

или обратным проходом по строке до первого встреченного знака препинания, с помощью цикла While, если не хочется делать лишние итерации...

Что именно? Это было уточнение предыдущего поста, тебе же (для того, чтобы решить поставленную задачу) надо добавить еще 2 строки.

Добавлено через 1 мин.
P.S. Вообще-то "Одна тема - один вопрос", если что...

Тогда закрывайте тему,спасибо что помогли

Задача на обработку строк:


Что же до задач на последовательность, то там вообще можно обойтись без массива.
Потом, ты пишешь:

В итоге у тебя получается, что в первой строчке a[i] сравнивается с 0. А чему при этом равно i? Оно равно n+1.
То есть, несуществующий элемент массива сравнивается с 0. Потом, как у тебя к сумме могут добавляться значения элементов массива в кубе при неизменяющемся i?