объясните как она работает Опции

[kerf]

не понимаю как эта прога работает. для чего b[k], и C[d] и
как эти массивы вывести на экран.
господа, если не лень допишите к строкам комменты. Спасибо.

Код

program lab_8;
const m0=100;
var a:array[1..m0] of integer;
    b:array[1..m0] of integer;
    c:array[1..m0] of integer;
    n,i,k,s,m,d: integer;
begin
   writeln('vvedite n');
   readln(n);
   for i:=1 to n do
   begin
   writeln('A',i,'=');
   readln(a[i]);
   end;
   k:=1;
   s:=1;
   m:=1;
   d:=1;
      for i:=1 to n do
      begin
        if A[i]<0 then
          if (a[i] mod 2)<>0 then
   begin
   b[k]:=A[i];
   k:=k+1;
   end;
   end;
      for i:=1 to n do
      begin
      s:=s*A[i];
   m:=m+1;
   end;
      if s<sqr(m-1) then
          begin
            C[d]:=A[i];
            d:=d+1;
            end;
            writeln('количество членов последовательности 1=',k-1);
            writeln('количество членов последовательности 2=',d-1);
            readln;
            end.

[klem4]

Хех, так это то что тебе надо найти по заданию, две последовательности, массив b - состоит из нечетных отрицательных элементов массива a, а вот массив c ... тут мне кажется ошибка, он всегда будет состоять из одного элемента или будет пуст.

Сообщение отредактировано: klem4 - 16.01.2006 11:01

[volvo]

так это то что тебе надо найти по заданию

Ты где-то видел ЕГО задание? Задание приведено не было, поэтому прекращаем гадание на кофейной гуще.

kerf, нужна помощь - напиши задание. Откуда я знаю, может эта твоя программа вообще неверно работает...