Одномерный массив

[Max_Grinyuk]

Доброго времени суток.
Помогите пожалуйста написать программу на паскале. Последняя работа, и допустят к экзамену, а тема мной не усвоена =(
Нужно найти количество элементов одномерного массива, меньших числа L, L и массив ввести с клавы.

[Siluet]

Держи..

program xaxa;
uses crt;
var a:array[1..100] of integer;
    l,i,x:integer;

begin
     writeln('Введите массив');
     for i:=1 to 10 do begin
     readln(a[i]); end;
     writeln('Введите число L ');
     readln(l);
     for i:=1 to 10 do begin
     if a[i]<l then begin x:=a[i];
     writeln('x=',x);  end else
     end;
end.

[Max_Grinyuk]

Siluet, какая то программа странная....в конце концов выводит числа, которые я не вводил...

[Siluet]

подожди минутку

[Siluet]

незнаю что у тебя не так, но у меня все прекрастно работает

[Siluet]

аааа, блин все, щас сделаю нормально

[Siluet]

воооотт!! ))

program xaxa;
uses crt;
var a:array[1..100] of integer;
    i,l,k:integer;

begin
     writeln('Введите массив');
     for i:=1 to 10 do begin
     readln(a[i]); end;
     writeln('Введите число L');
     readln(l);
     for i:=1 to 10 do begin
     if a[i]<l then k:=k+1;
     end; writeln('k=',k);
end.

[Max_Grinyuk]

Siluet, БОЛЬШОЕ ЧЕЛОВЕЧЕСКОЕ СПАСИБО!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Заработало!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!

[Max_Grinyuk]

А второй чам отличается?

[Siluet]

Я прост дурак.. условие другое сделал ))))