Пишет что в 21 строке Program1.pas(21) : Нельзя изменять значение переменной цикла внутри этого цикла. Что делать. Паскаль
Pascal
Const n=15;
Var a:array[1..n-1] of integer;
var i,j,ik,sum, ch, il, min: integer;
begin
randomize;
for i:=1 to n-1 do begin
a[i]:=random(100)-20; write(a[i]:4);
end; writeln; min:=1000;
for i:=1 to n-1 do
if a[i]<min then min:=a[i];
writeln ('Минимальный элемент массива =', min); sum:=0;
for i:=n-1 downto 1 do
if a[i]>0 then il:=i;
for i:=1 to n-1 do
if a[i]>0 then ik:=i;
for i:=il to ik do begin
sum:=a[i]+sum; end;
writeln ('Сумма элементов между первым положительным и последним = ', sum); j:=0;
for i:=2 to n-1 do begin
if (a[i]=0) then begin
ch:=a[1+j]; a[1+j]:=a[i]; a[i]:=ch; i:=i+1; j:=j+1; end; end;
for i:=1 to n-1 do
write (a[i], ' ');
writeln;
end.