Сгенерировать массив целых чисел из 15 элементов. Числа лежат на интервале от 0 до…

Uses crt; var a: array[1… 100] of integer; i, max: integer; beginfor i: =1 to 100 dobegina[i]: =random (100); write (a[i],'); end; max: =a[1]; for i: =1 to 100 doif a[i]=25 then writeln ('Да, число 25 есть в этом массиве.'); if a[i]>max then max: =a[i]; writeln ('Максимальное число массива=',max); readkey; end.