Паскаль. Одномерный массив

[deceiver]

Необходимо вычислить произведение первого,третьего и шестого положительныхх елементов и опредилить их номера в данном массиве:
У(k)=sin((k-3.1)/(2.4pi))+cos(k) ; k=1...7

[Razorishe]

Элементы массива получились:
y[1]=0.27
y[2]=-0.56
y[3]=-1.00
y[4]=-0.53
y[5]=0.53
y[6]=1.34
y[7]=1.25
Я не понял, произведение каких из этих элементов нужно найти?

[deceiver]

по ходу нужно найти произведение самого первого положительного елемента(тоесть y[1]), третьего полож (y[6]),а шестого походу не будет...
каим образом ето задать в паскале?

[Нұржол]

Razorishe, а как удалось так решить?

У(k)=sin((k-3.1)/(2.4pi))+cos(k) ; k=1...7 ->
y[1]=0.27
y[2]=-0.56
y[3]=-1.00
y[4]=-0.53
y[5]=0.53
y[6]=1.34
y[7]=1.25

[capta1n]

program project;
const
 pi = 3.14;
var
 y : array [1..7] of real;
 i,k,b : byte;
 p : real;
begin
  for k:=1 to 7 do
   y[k]:=sin((k-3.1)/(2.4*pi))+cos(k);
  for k:=1 to 7 do write (y[k]:0:2,'|');
  writeln;
  b:=0;
  i:=0;
  p:=1;
  for k:=1 to 7 do
   if i=3 then break
   else
    if (y[k]>0) then
    begin
      inc(b);
      if (b=1) or (b=3) or (b=6) then
      begin
        p:=p*y[k];
        inc(i)
      end;
    end;
    writeln ('p= ',p:0:2);
  readln
end.

[Razorishe]

Как вариант:

uses crt;
const n=7;
var y:array[1..n] of real;
    pr:real;
    k,p,x:byte;
begin
 clrscr;
 pr:=1;
 x:=0;
 for k:=1 to n do
  begin
   y[k]:=sin((k-3.1)/(2.4*pi))+cos(k);
   write(y[k]:4:2,'  ');
  end;
 writeln;
 for k:=1 to n do
  begin
   if y[k]>0 then
    begin
     p:=p+1;
     if p>3 then break
     else
      begin
       inc(x);
       if (x=1)or(x=3)or(x=6) then
        begin
         pr:=pr*y[k];
         writeln(k,' element massiva= ',y[k]:4:2)
        end
      end
    end
  end;
 write('pr=',pr:4:2);
 readln
 end.

[puporev]

Что-то я не пойму о чем рубимся, если шестого положительного элемента в натуре нет?

[Razorishe]

Видимо просто подвох в задание