Question

Помогите пожалуйста заполнить пропуски!!
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.

Answer 1

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