Массив одномерный

  • Автор темы nick6161
  • Дата начала
N

nick6161

#1
Как первые N элементов массива заполнить нулями, а остальную часть единицами?
Я могу найти количество нулевых элементов, но как заполнить первые N элементов ими не знаю. Помогите пожалуйста.
Я попытался сделать так:
Код:
var
A:array[1..20] of integer;
i,n,J,k:integer;
begin
write('vvedite n=');
readln(n);
for i:=1 to n do
begin
write('vvedite A[',i,']=');
readln(A[i]);
end;
j:=0;
for i:= 1 to n do
if A[i]=0 then j:=j+1;
for i:=1 to j do
a[i]:=0;
for i:=j to n do
a[i]:=1;
write(a[i]);
end.
но ничего не вышло
 
09.11.2009
665
1
#2
Код:
for i:=1 to l do { l - количество елементов масива}
if i<=n then a[i]:=0 else a[i]:=1; { n- наше число N}