Из вычисленного массива R удалить все положительные элементы, расположенные до последнего

Из вычисленного массива R удалить все положительные элементы, расположенные до заключительного отрицательного элемента
Программка:
type mas = array [1..100] of real;var x, h, a: real; i, n, j, k, l: integer; r: mas;begin repeat writeln ('Введите 1lt;=nlt;=100'); readln (n); if (nlt;1) or (ngt;100) then writeln ('Неправильный ввод'); until (ngt;=1) and (nlt;=100); writeln ('Введите h и a'); readln (h, a); writeln ('Введите х'); readln (x); for i:=1 to n do begin r[i]:=6*cos(a*x+i*h); end; write('Массив: '); for i:=1 to n do writeln(r[i]); Отысканный массив j:=0; k:=0; for i:=1 to n do if r[i]lt;0 then k:=i; for i:=1 to n do if (r[i]gt;0) and (ilt;k) then begin (28 строчка) for i:=k to n do begin j:=j+1; r[j]:=r[i]; end; n:=j;end;writeln('Новый массив');for i:=1 to n do writeln (r[j]);end.
Ошибка: Нельзя изменять значение переменной цикла снутри этого цикла (строчка 28)
Я разумею суть оплошности, но не знаю, чем поменять "i" для нужного мне результата

Александра 2019-03-26 08:08:20

что значит эта строка кода if (r[i]>0) and (i for i:=k to n do begin <=28

Тайя Виталик 2019-03-26 08:17:25

ошибка при копировании, поправила

Алёна Кильдиярова 2019-03-26 08:23:31

заместо 2-ух циклов for используйте два цикла while, тогда сможете поменять счетчик индексов внутри циклов, чуть позже напишу мое решение