Ввести количество отрезков и их длины; найти, сколько треугольников можно составить из этих отрезков - Pascal ABC

Формулировка задачи:

надо написать такую программу: пользователь вводит количество отрезков и их длины, и надо найти сколько треугольников можно составить из этих отрезков, используя подпрограммы


textual

Код к задаче: «Ввести количество отрезков и их длины; найти, сколько треугольников можно составить из этих отрезков - Pascal ABC»

type mas=array[1..100] of real;
function trg(a:mas;n:byte):byte;
var i,j,k,q:byte;
begin
q:=0;
for i:=1 to n-2 do
for j:=i+1 to n-1 do
for k:=j+1 to n do
if(a[i]+a[j]>a[k])and(a[i]+a[k]>a[j])and(a[j]+a[k]>a[i]) then q:=q+1;
trg:=q;
end;
var s,o:integer;
    p : mas;
Begin
Writeln('Введите количество отрезков');
readln (s);
Writeln('Введите длины этих отрезков через пробел');
For o:=1 to s do
read(p[o]);
writeln;
write('Количество треугольников=',trg(p,s));
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 3.933 из 5

Источник
Похожие ответы