Помогите пожалуйста заполнить пропуски!! 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, '...
Помогите пожалуйста заполнить пропуски!!
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)
Не нашли ответ?
Похожие вопросы