Помощь - Поиск - Пользователи - Календарь
Полная версия: объясните как она работает
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
kerf
не понимаю как эта прога работает. для чего b[k], и C[d] и
как эти массивы вывести на экран. wacko.gif
господа, если не лень допишите к строкам комменты. Спасибо.
Код

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 ... тут мне кажется ошибка, он всегда будет состоять из одного элемента или будет пуст.
volvo
Цитата
так это то что тебе надо найти по заданию
Ты где-то видел ЕГО задание? Задание приведено не было, поэтому прекращаем гадание на кофейной гуще.

kerf, нужна помощь - напиши задание. Откуда я знаю, может эта твоя программа вообще неверно работает...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.