Дан массив из двадцати элементов, заполненный целыми числами от -15 до 45.…

Random ВЕРНЫЙ и не надо со мной спорить! Там четко написано максимальное значение 45, минимальное значение 0-15=-15! На счет второго замечания, я то согласен, но разницы и ТЕМ БОЛЕЕ ОШИБКИ из-за которой стоит поднимать панику нет! Если человек. Кторый пишет здесь ТАКОЕ ПРОСТОЕ задние не в состоянии самостоятельно его решить это значит ОДНО, что если его решение будет сложным, значит это не он сам решал! Program W; Var A: array [1… 20] of integer; I,j: integer; Beginj: =0; For I: =1 to 20 do beginA[i]: =random (60) -15; If A[i] mod 2=0 then inc (j); end; Write (j); End.