Всем, приветзадание выглядет так - Дан массив размера N и число k (0 < k < 5, k < N). Осуществить циклический сдвиг элементов массива влево на k позиций. в принципе код весь перепроверила, но почему то ругается. ошибка - [Error] Unit1.pas(40): ')' expected but ';' found
код -
заранее спасибо
код -
Код:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
a: array [1..10] of real;
temp: array [1..4] of real;
k,N:integer;
i:integer;
begin
N:=StrToIntDef(InputBox('Введите N (N<=10)','',''),0);
k:=StrToIntDef(InputBox('Введите k ((0 <= K <= 5, K< N))','',''),0);
for i:=1 to n do begin A[i]:=StrToInt(InputBox(format('a[%d]',[i]),'','0')); end;
for i:=1 to k do begin temp[i]:=a[i]; end;
for i:=1 to n-k do begin a[i]:=a[i+k]; end;
for i:=1 to k do begin a[n-k+i]:=temp[i]; end;
for i:=1 to n do ListBox1.Items.Append(Format('%10.2f',[A[i]]);
end;