Водновременном массиве x (15) найти сумму и произведение элементов и выбрать из них наибольшее. код паскаль

01. program  massiv5; 02. uses  crt; 03. const  n=10; 04. type  x=array  [1..n]  of  integer; 05. var  a: x; 06. i: integer; 07. max: integer; 08. imax: integer; 09.begin10.clrscr; 11.randomize; 12. for  i: =1  to  n  do13.begin14. a[i]: = -50+random(101); 15. write  (a[i]: 5)16. end; 17. writeln; 18. imax: =1; 19. max: =a[1]; 20. for  i: =2  to  n  do21. if  max< a[i]  then22.begin23.max: =a[i]; 24.imax: =i25. end; 26. writeln  (‘максимальный элемент в массиве=’,max: 5); 27. writeln  (‘его индекс=’,imax: 5); 28.readln29. end.

1. разобьем условие на части, чтобы было нагляднее. в числе меньше восьми цифр "и"       [число кратно 3 "или"             (число содержит 2 "и" число кратно 5)]2. условие " в числе меньше восьми цифр" связано с остальной частью выражения по "и", следовательно, оно обязательное и все, что ему не удовлетворяет, должно быть отброшено вместе с этим условием.варианты 4) и 6) содержат 8 цифр и отбрасываются.3. число кратно 3    "или"            число содержит 2          "и"          число кратно 5если варианты " число кратно 3" есть, мы их выбираем, а это условие отбрасываем.кратны трем числа 1) 69 2) 12 и 7) 15.4. остались числа 3) 25, 5) 22 и 8) 55.проверяем их на условие число содержит 2"и"число кратно 5содержат двойку 3) 25 и 5) 22, но лишь 25 кратно 5 - его и оставляем.ответ: 1) 2) 3) 7)