Задаётся массив из 10 чисел

[linnik]

Помогите плиз. Задаётся массив из 10 чисел найти количество тех элементов, значения которых положительны и не превышают заданного числа А(вводится любое). Вывести количество этих чисел и сам массив.

[whatever]

if (m[i]>0)and(m[i]<=A) then count:=count+1;

[NinaSSS]

program jfhgkh;
var b:array[1..50] of integer; i,k,a,n:integer;
begin
readln(n); readln(a);

for i:=1 to n do begin
readln(b[i]);
end; writeln('massiv');
for i:=1 to n do begin
write(b[i]:3);
end;
k:=0;
 for i:=1 to n do begin
   if (b[i]>0) and (b[i]<a) then k:=k+1;
   end;
   writeln('  k=',k);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

NinaSSS, есть небольшая неточность в коде..

нужно сравнение с А нестрогое:

  if (b[i]>0) and (b[i]<=a) then k:=k+1;

и ещё, Вы научитесь свой код правильно форматировать или нет?!!! :-/

[linnik]

Спасибо,парни, большое, очень выручили!!!

[NinaSSS]

ток я не парень

Сергей не нервничайте, это вредно. Не пойму, что за кнопочка с решеткой? На клаве? Так я ее нажимаю

[whatever]

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

Сергей не нервничайте, это вредно. Не пойму, что за кнопочка с решеткой? На клаве? Так я ее нажимаю

. .

[NinaSSS]

Спасибо я думала на клаве решетка

[linnik]

NinaSSS, я извеняюсь, виноват! но всё же большое спасибо