Нужно написать программу для нахождения площади треугольника через радиус описанной окружности (s=abc/4r)и дляa-3bx^2+(корень из 6g+8x)-1/a(если что это в паскале)

Алгори́тм (лат. algorithmi — от имени среднеазиатского математика Аль-Хорезми[1]) — конечная совокупность точно заданных правил решения некоторого класса задач или набор инструкций, описывающих порядок действий исполнителя для решения некоторой задачи. В старой трактовке вместо слова «порядок» использовалось слово «последовательность», но по мере развития параллельности в работе компьютеров слово «последовательность» стали заменять более общим словом «порядок». Независимые инструкции могут выполняться в произвольном порядке, параллельно, если это позволяют используемые исполнители.

Объяснение:

Var i, n, k, sum:integer ;

A:array [1..100]of Integer ;

Begin

//Запрашиваем кол-во элементов массива

Write (' N=') ;read (n) ;

//Заполняем массив случайными значениями от 0 до 25

// И выводим его на экран

For i:=1 to N do begin

A[i]:=random(26);

Writeln (' A[', i, ']=', a[i]) ;

End;

//Обнуляем переменные

K:=0;sum:=0;

//В цикле находим элементы, которые больше 8

//и меньше 13,считаем их кол-во и сумму

For i:=1 to N do begin

If((a[i]>8) and(a[i]<13)) then begin

K:=k+1;

Sum:=sum+a[i];

End;

End;

//Ввводим результат на экран

Writeln(' Кол-во элементов больше 8 и меньше 13:',k);

Writeln(' Их сумма ', sum) ;

End.

Объяснение:

Строчки с двумя слешами в программу можешь не писать, это я сделал, для объяснения программы