Помогите пожалуйста заполнить пропуски!! Type LinMass = array [1..1000] of Integer; Var A : LinMass; N, i : _______; begin Write(Количество элементов массива: ); ReadLn(N); For I := 1 To ____ Do Begin Write(Введите A[, I, ] ); ReadLn(A[i]); End; i:=6; while i ____ n do begin A[____]:=A[i]; i:= i+1; end; n:=n-5; For I := 1 To ____ Do write(a[i]:6); end.

1. integer
i - параметр цикла , должен быть целочисленным
2. n
вводим последовательно элементы с 1 до n
3.(( i-5)4. i-5 первому элементу присваиваем значение шестого, второму - седьмого и т.д.
5. n выводим последовательно элементы с 1 до n -5