Var a:array[1..10] of integer;
b:array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do
begin;
readln(a[i]);
if a[i]<0 then
begin;
k+=1;
b[k]:=i;
end;
end;
writeln('Индексы отрицательных');
for i:=1 to k do
writeln(b[i]);
writeln('Всего:',k);
end.<span> </span>
<span>Построена блок-схема алгоритма с условиями</span>
Import math
a = float(input())
b = float(input())
c = math.sqrt(a**2 + b**2)
s = (a * b) / 2
print("Площадь треугольника: %.2f" % s)
print("Гипотенуза треугольника: %.2f" % c)
идеи многих своих изобретений человек подглядел в природе.
Возможно 3 варианта перемещения:
ABCE - длина = 6
ABDE - длина = 7
ABE - длина = 8
Правильный ответ №2: кратчайший путь: ABCE = 6