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.
Владимирович_Слабый
13.04.2021
Используем формулу герона для нахождения площади треугольника по трем сторонам: 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.
MariyaKhanbalaeva585
13.04.2021
Замечание. так как количество вводимых чисел заранее не известно, то откроем бесконечный цикл со всегда верным условием 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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Напишите программу в паскале произведение элементов массива, расположенных между максимальным и минимальным элементами;