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

[ivan1993]

Вводятся размер одномерного массива и его элементы. Вывести количество составных чисел среди элементов массива, которые делятся на 5 или на 7.
Надо решить её в паскале, в программировании не смыслю((( задал перпод, не могу решить, кому не трудно, заранее огромное спасибо.

[Zer0]

var a:array[1..255] of integer; count,n,i:byte;

begin
writeln ('Imput array size: ');
readln(n);
count:=0;
for i:=1 to n do begin
 write ('A[',i,'] = ');
 readln(a[i]);
 if (a[i]>=5) and ((a[i] mod 5=0) or (a[i] mod 7=0)) then inc(count);
end;
writeln ('Elements count = ',count);
end.

Да пожалуйста) Вот только массив больше 255 элементов так задать нельзя, если Вам нужно реализовать еще и динамический массив, то лучше дождаться ответа другого человека
Хотя в целом можно вообще обойтись без массива