Заполнить массив из 10 элементов случайными числами в интервале [0..100] и вывести **...

Question

Заполнить массив из 10 элементов случайными числами в интервале [0..100] и вывести на экран значение всех элементов ,которые оканчиваются на 5.

Answer 1

P.S. Благодарность и лучший ответ не помешает.
var a,b,c,i,n:integer;   
p:array[1..10000] of integer;
begin
read (a); {Размер массива}
for i:=1 to a do 
 p[i]:=random(99);
for i:=1 to a do 
 if p[i] mod 5 = 0 then write(p[i],' ');
end.

Answer 2

Var a: array[1..10] of integer;
begin
   randomize;
   for i:=1 to 10 do begin
     a[i]:=random(101);
     if a[i] mod 10=5 then write(a[i], ' ');
   end;
end.