Pascal , нужно 1 задачки решить!

[Photolife]

Доброго времени суток) Помогите пожалуйста решить несколько задач на массивы. Pascal! Я в этом полный ноль...

• Дана таблица индуктивностей катушек L(1:N). Определить количество катушек, сопротивление X(I) которых меньше некоторой величины М и больше или равны М, где X(I)=2*3, 14*F*L(I).

Заранее огромное спасибо.

[whatever]

первая:

mult:=1;
count:=0;
for i:=1 to n do
  if b[i]>0 then
    begin
      mult:=mult*b[i];
      count:=count+1;
    end;
writeln('произведение положительных элементов: ', mult);
writeln('их количество: ',count);

[Photolife]

чет не работает...=(

PHP код:

var
b: array[1..500] of integer;
  mult, count ,i ,n  : integer;
begin
read(n);
mult:=1;
count:=0;
for i:=1 to n do
  if b[i]>0 then
    begin
      mult:=mult*b[i];
      count:=count+1;
    end;
writeln(mult);
writeln(count);
end. 


[Hacker19_90]

а массив за вас кто считывать будет?

[whatever]

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

чет не работает...=(

PHP код:

var
b: array[1..500] of integer;
  mult, count ,i ,n  : integer;
begin
read(n);
mult:=1;
count:=0;
for i:=1 to n do
  if b[i]>0 then
    begin
      mult:=mult*b[i];
      count:=count+1;
    end;
writeln(mult);
writeln(count);
end. 


Ну так ты массив то не заполнил.

[Photolife]

дошло, ввод массива нужно сделать

[Photolife]

Жду помощи по 2 задачи! плиз!

[Hacker19_90]

Жду помощи по 2 задачи! плиз!

Ок! Если скажете чему равна частота!

[Photolife]

да откуда я знаю... в практике так написано и всё!

[Hacker19_90]

ну значит так и напишем ;D

countLow := 0;
countEq := 0;
countHi := 0;
for i := 1 to n do
begin
    if (2*3.14*F*L[i]) < M then Inc(countLow);
    if (2*3.14*F*L[i]) = M then Inc(countEq);
    if (2*3.14*F*L[i]) > M then Inc(countHi);
end;
WriteLn ('Меньше M', countLow);
WriteLn ('Равно M', countEq);
WriteLn ('Больше M', countHi);