Напишите программу в паскале произведение элементов массива, расположенных между максимальным и минимальным элементами;

Const n=10; var min,max,i: integer; p: real; a: array[1..n] of real; begin p: =1; min: =1; max: =1; for i: =1 to n do read(a[i]); for i: =1 to n do if a[i]> a[max] then max: =i else if a[i]< a[min] then min: =i; if max< min then for i: =max+1 to min-1 do p: =p*a[i] else for i: =min+1 to max-1 do p: =p*a[i]; write(p) end.

Используем формулу герона для нахождения площади треугольника по трем сторонам: s=√(p·(p-a)·(p-b)·(p- где p - полупериметр, равный p=(a+b+c)/2 программа: program z; var a1,b1,c1,a2,b2,c2,p1,p2,s1,s2: real; begin readln(a1,b1,c1);     {ввод длин сторон первого треугольника} p1: =(a1+b1+c1)/2; {полупериметр первого треугольника} s1: =sqrt(p1*(p1-a1)*(p1-b1)*(p1-c1)); {площадь первого треугольника} readln(a2,b2,c2);   {ввод длин сторон второго треугольника} p2: =(a2+b2+c2)/2; {полупериметр второго треугольника} s2: =sqrt(p2*(p2-a2)*(p2-b2)*(p2-c2)); {площадь второго треугольника} if s1=s2                    {если площади треугольников равны} then writeln('yes')    {то вывести положительный ответ} else writeln('no');     {иначе вывести отрицательный ответ} end.

Замечание. так как количество вводимых чисел заранее не известно, то откроем бесконечный цикл со всегда верным условием true, но как только будет введено число 0, остановим цикл командой break. программа: program z; var k,s,x: integer; begin k: =0;               {начальное значение количества двузначных чисел} s: =0;               {начальное значение суммы двузначных чисел} while true do  {открываем бесконечный цикл} begin readln(x);         {вводим число х} if x=0 then break;   {если введенное число равно 0, то остановить цикл} if (x> 9)and(x< 100) then  {если число двузначное, т.е. от 10 до 99}      begin      k: =k+1;           {количество увеличиваем на 1}     s: =s+x;           {увеличиваем предыдущее значение суммы на число х}     end; end; if k=0 then writeln('no')  {если двузначных чисел не было, то вывод no}     else writeln(s/k);           {иначе вывод ср.арифметического} end.