. Дан массив целых чисел. Определить количество четных элементов и коли-
чество элементов, оканчивающихся на цифру 5.
Помогите,пожалуйста,паскаль-одномерный массив

Скажи, пожалуйста,как ещё можно написать,без randoma?

Const   N = 33;Var   A:array[1..N] of integer;   i,c,p:integer;Beginc:=0;p:=0;Randomize;Write('Исходный массив:');For i:= 1 to N do    Begin    A[i]:=random(2*N+1)-N;    Write(' ',A[i]);    if A[i] mod 2 = 0 then c:=c+1;    if (A[i] mod 5 = 0)and(A[i] mod 10 <> 0) then p:=p+1    End;WriteLn;WriteLn('Количество чётных чисел: ',c);WriteLn('Количество чисел, оканчивающихся на 5: ',p);End.