Создать массив из номеров нулевых элементов.

program vad2211;
uses crt;
var
   a,b:array[1..100] of integer;
   i,n,k:integer;
begin
  clrscr;
  randomize;
  write('Ðàçìåðíîñòü ìàññèâà: ');
  readln(n);
  writeln('Ôîðìèðîâàíèå ìàññèâà...');
  k:=0;
  for i:=1 to n do
   begin
    a[i]:=random(4)-2;
    write(a[i]:4);
    if a[i]=0 then
     begin
      b[i]:=i;
      k:=k+1;
     end;
   end;
  writeln;
  writeln('Massiv indeksov nuler:');
  for i:=1 to k do
   write(b[i]:4);
  readln;
end.

program vad2211;
uses crt;
var
   a:array[1..100] of real;
   i,n,c,d:integer;
begin
  clrscr;
  randomize;
  write('Ðàçìåðíîñòü ìàññèâà: ');
  readln(n);
  writeln('Óêàæèòå äèàïàçîí îòðåçêà [c,d]:');
  repeat
   write('c=');readln(c);
   write('d=');readln(d);
  until (c<d) and (d<=n) and (c>0);
  writeln('Ôîðìèðîâàíèå ìàññèâà...');
  for i:=1 to n do
   begin
    a[i]:=random(1001)/(1+random(1000));
    write(a[i]:6:2);
   end;
  writeln;
  writeln('Ýëåìåíòû ìàññèâà èç îòðåçêà [',c,',',d,']:');
  for i:=c to d do
   write(a[i]:6:2);
  readln;
end.

var
   a,b:array[1..100] of integer;
   i,n,k:integer;
begin
  randomize;
  write('kolichestvo chisel ');
  readln(n);
  for i:=1 to n do
   a[i]:=random(10)-5;
   writeln('massiv');
  for i:=1 to n do
   write(a[i],' ');
 
    for i:=1 to n do
    if a[i]=0 then
     begin
      inc(k);
      b[k]:=i;
      end;
 
  writeln;
  writeln('novyj massiv ');
  for i:=1 to k do
   write(b[i],' ');
  readln;
end.

var
   a:array[1..100] of real;
   i,n,c,d:integer;
begin
 
  randomize;
  write('kol-vo chisel ');
  readln(n);
  writeln('vvedite granicy intervala');
  repeat
   write('c=');readln(c);
   write('d=');readln(d);
  until (c<d);
  for i:=1 to n do
      a[i]:=random(100)*1.39;
   writeln('massiv');
  for i:=1 to n do
    write(a[i]:6:1);
     writeln;
  writeln('chisla na intervale ot ',c, ' do ',d);
  for i:=1 to n do
   if (a[i]>=c)and(a[i]<=d)then write(a[i]:6:1);
  readln;
end.

var
a:array[1..100]of integer;
n,i,x,y:integer;
r,min:real;
begin
repeat
writeln('vvedite razmer massiva');
readln(n);
until n mod 2=0;
randomize;
for i:=1 to n do
a[i]:=random(20);
writeln('massiv');
for i:=1 to n do
write(a[i],' ');
writeln;
min:=0;
for i:=1 to n div 2 do
begin
x:=a[i*2-1];
y:=a[i*2];
r:=sqrt(sqr(x)+sqr(y));
if r>min then min:=r;
end;
writeln('min radius=',min:5:2);
readln;
end.