Автор: kerf 16.01.2006 0:55
не понимаю как эта прога работает. для чего 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 16.01.2006 15:01
Хех, так это то что тебе надо найти по заданию, две последовательности, массив b - состоит из нечетных отрицательных элементов массива a, а вот массив c ... тут мне кажется ошибка, он всегда будет состоять из одного элемента или будет пуст.
Автор: volvo 16.01.2006 15:35
Цитата
так это то что тебе надо найти по заданию
Ты где-то видел ЕГО задание? Задание приведено не было, поэтому прекращаем гадание на кофейной гуще.
kerf, нужна помощь - напиши задание. Откуда я знаю, может эта твоя программа вообще неверно работает...