одномерный массив - определение элементов

[AlexP777]

Здравствуйте,

Есть задача:

Определить количество элементов массива, кратных 5 и не превосходящих за-данную величину Х.

Как я понимаю, нужно сделать циклом, но как сделать так, что бы считать именно количество таких элементов?
Если не сложно набросайте пример для наглядности.

Спасибо за ранее.

[Mad_Cat]

c:=0;
for i:=1 to n do
if (a[i]<=x) and  (a[i] mod 5=0) then inc(c);

[AlexP777]

если не сложно, можете растолковать насчет

mod 5=0

и насчет

inc(c);

про последнее в конспекте у меня ноль, все лекции пишу)

[Mad_Cat]

про последнее в конспекте у меня ноль

Книжки & Google в помощь!
про inc
про mod

[PavelDD]

Вот программа:

uses crt;
const n = 10;
var a:array[1..n]of integer;
    i,k,x:integer;
Begin
     for i:=1 to n do begin
         a[i]:=random(100);
         write(a[i]:4);
     end;
     writeln;
     write('Введите значение х= ');read(x);
     k:=0;
     for i:=1 to n do
         if (a[i] mod 5 = 0) and (a[i]<x)then inc(k);
     writeln;
     write('Количество элементов, кратных 5 и не превосходящих х:  ',k);
End.

Функция mod определяет кратность, то есть

a[i] mod 5 = 0

это означает, что элемент массива кратен 5. А inc(k) означает увеличение переменной k на единицу, то есть это то же самое, что k:=k+1;

[AlexP777]

спасибо за помощь и разьяснения, в итоге сделал так:

program laba;
uses crt;
const n = 10;
var a:array[1..n]of integer;
    i,k,x:integer;
Begin
      writeln('vvedite massiv');
      for i:=1 to n do
      readln(a[i]);

     write('Введите значение х= ');read(x);
     k:=0;
     for i:=1 to n do
         if (a[i] mod 5 = 0) and (a[i]<x)then inc(k);
     writeln;
     write('Количество элементов, кратных 5 и не превосходящих х:  ',k);
readln
End.