var
m : array [1..10] of Integer;
i, b, s, p : Integer;
begin
Writeln('Введите массив:');
for i := 1 to 10 do
begin
Write(i, ': ');
Readln(m[i]);
end;
s := 0;
b := m[1];
p := 1;
for i := 1 to 10 do
begin
if b < m[i] then b := m[i];
if m[i] > 0 then s := s + m[i];
if m[i] mod 2 = 0 then p := p * m[i];
end;
Writeln('Наибольший элемент = ', b);
Writeln('Сумма неотрицаельных элементов = ', s);
Writeln('Произведение четных элементов = ', p);
ReadLn;
end.
ответ:
n, m, t = map(int,
x = list(map(int,
def build(name):
if name in built:
pass
elif b[a.index(name)] == ["0"]:
built.append(name)
else:
for i in b[a.index(: ]:
if i not in built:
build(i)
built.append(name)
a = []
b = []
built = []
for i in range(0, n):
a.append(
b.append(
for i in range(0, b.:
built.append(a[b.
a.pop(b.
b.pop(b.
[build(str(o)) for o in x]
print(len(built))
объяснение:
