• B правой части каждого сообщения есть стрелки и . Не стесняйтесь оценивать ответы. Чтобы автору вопроса закрыть свой тикет, надо выбрать лучший ответ. Просто нажмите значок в правой части сообщения.

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

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

nick6161

Как первые 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.
но ничего не вышло
 
D

Dock1100

Код:
for i:=1 to l do { l - количество елементов масива}
if i<=n then a[i]:=0 else a[i]:=1; { n- наше число N}
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!