Задание:
Заполнить массив из 10 элементов случайными числами в интервале [0… 100] и вывести на экран значение всех элементов, которые оканчиваются на 5.
Решение:
P.S. Благодарность и лучший ответ не помешает.var a,b,c,i,n: integer; p: array[1… 10000] of integer; beginread (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.
Знаете другой ответ?