массив из единиц и нулей

[dodomenos]

Задание 23
Ввести массив A(N) из положительных и отрицательных единиц и нулей.
Вывести на печать информацию о количестве положительных и отрицательных
Единиц и нулей, а также об их индексах.

program zad23;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const n=10;
var
     a:array[1..n] of integer;
     i,k,k1,nul,polz,otr:integer;
begin
     randomize;
     writeln;
     for i:=1 to n do
     begin
     a[i]:=random(3)-1;
     write(a[i]:4);
     end;
          writeln;
     k:=0;k1:=0; nul:=0;
     polz:=0;otr:=0;
     for i:=1 to n do
     begin
     if a[i]>0 then
     inc(polz);
     k:=i;
     if a[i]<0 then
     inc(otr);
     k1:=i;
     if a[i]=0 then
     inc(nul);
     end;
     writeln;
     writeln;
     writeln('Kol-vo polozhitel-x edinis = ' ,polz, ' ego index =',k);
     writeln;
     writeln('Kol-vo otrezat-x edinis    = ' ,otr,'  ego index =',k1);
     writeln;
     writeln('Kol-vo nulevix elementov   = ' ,nul);
     readln;
end.

---вот массив вывожу все хорошо ,а вот как правильно написать ,чтобы их индексы выходили ...вот здесь прошу помочь.
Скопируйте себе этот код и запустите...чтобы понятней был мой вопрос.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

1) вопрос номер раз - Вы пишете на "чистом" Паскале,
или, раз уж в Delphi компилируете, можно использовать функции, которые имеются в Delphi ?

2) подкидываю идею.
вместо переменных K, K1
заводите переменные типа string.
потом, каждый раз, как обнаружили соответствующее положительное или отрицательное или ноль сохраняте номер (индекс) элемента через запятую.
например, примерно так:

Var 
   index_polz, index_otr, index_nul : string;
   sIndx : string;
...
     nul:=0;  polz:=0;  otr:=0;
     index_polz := '';
     index_otr := '';
     index_nul := '';
     for i:=1 to n do
     begin
       str(i,sIndx);
       if a[i]>0 then begin
          inc(polz);
          index_polz := index_polz + sIndx + ',';
       end;
       if a[i]<0 then begin
          inc(otr);
          index_otr := index_otr + sIndx + ',';
       end;
       if a[i]=0 then begin
          inc(nul);
          index_nul := index_nul + sIndx + ',';
       end;
     end;

p.s. как вариант можно сделать три прохода по массиву: 1-й раз подсчитать и вывести индексы положительных элементов,
2-й проход - отрицательных - третий проход — нулевых. Пример такого вывода смотри тут - http://www.programmersforum.ru/showthread.php?t=139801

[phomm]

я могу ещё посоветовать хранить всё во вспомогательных массивах

...
a:array[1..n] of byte;
aminus:array[1..n] of byte;
anul:array[1..n] of byte;
aplus:array[1..n] of byte; 
...
for i:=1 to n do
     begin
     if a[i]>0 then begin
     inc(polz);
     aplus[polz]:= i;
     end;
     if a[i]<0 then begin
     inc(otr);
     aminus[otr] := i;
     end;
     if a[i]=0 then begin
     inc(nul);
     anul[nul] := i ;
     end;
     end;

вывод индексов потом осуществлять, конечно, в циклах (от 1 до otr , от 1 до nul, от 1 до polz)

[dodomenos]

вопрос номер раз - Вы пишете на "чистом" Паскале,
или, раз уж в Delphi компилируете, можно использовать функции, которые имеются в Delphi ?


. Пример такого вывода смотри тут - http://www.programmersforum.ru/showthread.php?t=139801

Работаю в Делфи, но не владею знаниями по функциям,пока не проходили

---ссылка помогла...вот что додумал...

program zad23;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const n=10;
var
     a,b:array[1..n] of integer;
     i,nul,polz,otr:integer;
begin
     randomize;
     writeln;
     for i:=1 to n do
     begin
     a[i]:=random(3)-1;
     write(a[i]:4);
     end;
     writeln;
     writeln;
{подсчёт и одновременно вывод индексов отрицательных элементов}
    otr := 0; polz:=0;
    for i:=1 to n do begin

    if a[i]<0 then begin
    otr:=otr+1;
    writeln(' indeksi otrezatelnix:',i:4);
    end;
   { writeln;}
    end;


    writeln('   Kolichestvo otricatel`nix elementov massiva- ',otr);
     writeln;
      writeln;
    for i:=1 to n do begin
     if a[i]>0 then begin
    polz:=polz+1;
    writeln(' indeksi polozitelnix',i:4);
    end;
    end;
    writeln('   Kolichestvo polozhetel`nix elementov massiva- ',polz);
    writeln;
    writeln;
     for i:=1 to n do begin
     if a[i]=0 then begin
    nul:=nul+1;
    writeln(' indeksi nylei',i:4);
    end;
    end;
    writeln('   Kolichestvo nylevix elementov massiva- ',nul);
    readln;
 end.

вопросик:В принципе все устраивает,но чисто интерес возник такой
мне пришлось каждый индекс с новый строчки выводить
а вот как их можно было вывести...
writeln(' Kolichestvo polozhetel`nix elementov massiva- ',polz ,,,,???? )... вот в этом выражении,чтобы через запитую указать какие индексы!
надеюсь понятно изложил)

[Serge_Bliznykov]

writeln(' Kolichestvo polozhetel`nix elementov massiva- ',polz ,,,,???? )... вот в этом выражении,чтобы через запитую указать какие индексы!

я в пост #2 предложил пример кода..
попробуйте использовать (=понять) его.
Получите индексы через запятую...

p.s. А вообще достаточно там, где Вы выводите индексы выводить и запятую, как Вы получите то, что хотите..