хелп ми плиз

[Kalan4an]

Люди, помогите создать программу с блоками защиты от неправильного ввода данных. количество элиментов массива, значение которых кратно 3.на делфи зарание спасибо

[ZX Spectrum-128]

А более внятно сформулировать задание можно?
При вводе элементов массива отсекать некорретно введенные числа?
Вводить элементы массива как строки, затем использовать val

val(S, R, E) - где: S - строка R - результат E - позиция, с которой произошла ошибка преобразования или 0.

количество элиментов массива, значение которых кратно 3.

K:=0;
For i:=1 to n do
  If a[i] mod 3=0 then
    K:=k+1;