Массивы

[NitriNKa]

Помогите решить!! Сформировать и вывести на экран массив вещественных чисел K={ki}, i=1..b, где b − число элементов в массиве K (b≤260). Вычислить произведение первого, третьего и шестого положительных элементов и определить их номера в данном массиве. Вывести результат на экран. В случае отсутствия искомых данных, вывести об этом сообщение.

[Sazary]

Что не получается? Что непонятно?

Формируете массив. Заводите счетчик, который будет считать положительные элементы.

Идете в цикле по массиву. Если элемент положительный, то увеличиваем счетчик. Если счетчик равен 1,3 или 6, то умножаем на него некое P (искомое произведение. Вначале оно равно 1). Если дошли до конца массива, а счетчик меньше 6, говорим, что нет 6-го положительного. Если меньше 3-х, то нет 3-го.

И все.

[NitriNKa]

подскажите , пожалуйста, как счётчик завести?? Массив то сформировала, а вот дальше что-то запуталась

[Sazary]

подскажите , пожалуйста, как счётчик завести??

Шутите?

var cnt : integer;

Что там заводить-то?

Массив то сформировала, а вот дальше что-то запуталась

Какой пункт (из того, что я написал) вам непонятен?
Просто переведите это в паскаль. Путаться там уже не в чем.

[NitriNKa]

Просто я в этом плохо разбираюсь. А если я вам пришлю то,что я тут с вашей помощью намудрила, вы исправите ошибки???

[Sazary]

Сообщение от NitriNKa

Просто я в этом плохо разбираюсь. А если я вам пришлю то,что я тут с вашей помощью намудрила, вы исправите ошибки???

Так естественно выкладывайте. Прямо сюда (только поместите код в тег CODE). Вместе и разберемся )

[NitriNKa]

Program Lab4;
Uses CRT;
Var
k: array [1..260] of real;
i: integer;
b: integer;
sch: integer;
p: integer;
Begin
Clrscr;
Writeln ('Введите количество элементов массива: ');
Readln (b);
if b>260 then
b:=260;
Writeln ('Заполнить массив');
For i:=1 to b do
begin
Readln (k[i]);
end;
sch:=1;
p:=1;
Writeln ('Номера элементов в массиве: ');
For i:=1 to b do
begin
if i>0 then 
begin
sch:=sch+1;
Writeln (i);
end;
end;
if sch=1 or 3 or 6 then
begin
sch:=sch*p;
Writeln (sch);
end;
If i=260 and sch<=6 then writeln ('Нет 6-го положительного');
if i=260 and sch<=3 then writeln ('Нет 3-го пложительного');
end.

[Sazary]

Вот, разбирайтесь.

Program Lab4;
Uses CRT;
Var
k: array [1..260] of real;
i,b: integer;
sch: integer;
p: real;

Begin
Clrscr;
Writeln ('Vvedite kolichestvo elementov ');
Readln (b);
if b>260 then
 b:=260;

sch:=0;
p:=1;
Writeln ('Zapolnit massiv');
For i:=1 to b do
 begin
 Readln (k[i]);
 if k[i]>0 then
  begin
  sch:=sch+1;
  if sch in [1,3,6] then
   p := p * k[i];
  end;

 end;

If sch<6 then writeln ('Net 6-go polozhitelnogo');
if sch<3 then writeln ('Net 3-go polozhitelnogo');

writeln('Proizvedenie = ',p:5:2);
readln;
end.

[NitriNKa]

спасибо вам большое!!