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

Тема в разделе "Pascal and Delphi", создана пользователем nick6161, 10 дек 2010.

  1. nick6161

    nick6161 Гость

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

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Код (Text):
    for i:=1 to l do { l - количество елементов масива}
    if i<=n then a[i]:=0 else a[i]:=1; { n- наше число N}
     
  3. nick6161

    nick6161 Гость

    Спасибо огромное ;) :rolleyes: ;)
     
Загрузка...
Похожие Темы - Массив одномерный
  1. vbnoob
    Ответов:
    1
    Просмотров:
    947
  2. LifeT
    Ответов:
    1
    Просмотров:
    1.208
  3. Crock95
    Ответов:
    0
    Просмотров:
    1.276
  4. Dexet
    Ответов:
    1
    Просмотров:
    1.392
  5. dambaldor30
    Ответов:
    1
    Просмотров:
    1.144

Поделиться этой страницей