Построй окружность, описанную около треугольника ABC, если треугольник ABC: а) остроугольный; б) прямоугольный; - id96035020200603 от айка392 03.06.2020 01:27

Question

Другие предметы: Построй окружность, описанную около треугольника ABC, если треугольник ABC: а) остроугольный; б) прямоугольный; в) тупоугольный.

айка392 · Accepted Answer

Данные		Результат
N=5	A=(3, 5, -2, 6, 3)	S=15.0

Исполнение алгоритма

Блок-схема

Вычислить сумму элементов числового массива A =

Turbo Pascal

Program Summa;

Uses Crt;

Type Mas = Array [1..20] of Real;

Var A : Mas;

i, N : Integer;

S : Real;

BEGIN

ClrScr; {очистка экрана }

Write('Введите N = ');

ReadLn(N); {ввод значения N}

For i := 1 to N dо {цикл по элементам массива}

begin

Write('A [ ', i , ' ] = ');

ReadLn(A[i]) {ввод элементов массива}

end;

S := 0; {присваивание начального значения}

For i := 1 to N do S := S+A[i]; {суммирование}

WriteLn;

WriteLn('Сумма равна ', S : 5 : 1);

ReadLn

END.

Построй окружность, описанную около треугольника ABC, если треугольник ABC: а) остроугольный; б) прямоугольный; в) тупоугольный.