N
nick6161
Как первые N элементов массива заполнить нулями, а остальную часть единицами?
Я могу найти количество нулевых элементов, но как заполнить первые 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.