var
A:array[1..100] of integer;
n, i, Summ:integer;
begin
randomize;
write('n = ');
readln(n);
Summ := 0;
for i := 1 to n do
begin
A[i] := random(201) - 100;
write(A[i], ' ');
if A[i] > 0 then
Summ := Summ + A[i];
end;
writeln;
if Summ <> 0 then
writeln('Summ = ', Summ)
else
writeln('Нет ни одного положительного элемента');
readln;
end.
//вторая программа
var
A:array[1..100] of integer;
B:array[1..100] of real;
n, i, Summ:integer;
begin
randomize;
write('n = ');
readln(n);
Summ := 0;
for i := 1 to n do
begin
A[i] := random(201) - 100;
write(A[i], ' ');
if A[i] mod 2 = 0 then
B[i] := A[i] / 2
else
B[i] := A[i];
end;
writeln;
writeln;
writeln('Result:');
for i := 1 to n do
write(B[i], ' ');
readln;
end.
ответ: 432 см²
Объяснение:
Обозначим трапецию АВСD; BC||AD. BC=b=11 см, AD=a=25 см
Опустим из вершины В высоту ВН.
Высота равнобедренной трапеции, опущенная из вершины тупого угла, делит основание на отрезки, меньший из которых равен полуразности оснований, больший - их полусумме. ⇒
АН=(25-11):2=7 см
DH=(25+11):2=18 см
ВС||AD, диагональ трапеции ВD- секущая. ⇒ ∠СВD=∠BDA (по свойству накрестлежащих углов)..
ВD - биссектриса угла В, поэтому и ∠АВD=∠BDA. Углы ∆ АВD при основании BD равны, ⇒ ∆ АВD равнобедренный, АВ=АD=25 см.
Из ∆ АВН по т.Пифагора ВН=24 ( стороны ∆ АВН из Пифагоровых троек).
Площадь трапеции равна произведению полусуммы оснований на высоту. Полусумма оснований DH=18 см
Ѕ(ABCD)=HD•BH=18•24=432 см²
Объяснение: