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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.