first_list = input().split()
second_list = [n for n in first_list if n == '4']
if len(second_list) != 0:
amount = 0
for i in second_list:
amount += int(i)
print(amount)
else:
print('в массиве нет числа "4" .')
Код Pascal
const
nmax = 100;
var
a: array[1..nmax] of integer;
i: byte;
n, m, s: integer;
begin
Writeln('Введите длину массива: ');
Read(n);
Writeln('Введите значения элементов массива');
for i := 1 to n do
write('a[', i, ']=');
read(a[i]);
if a[i] = 4 then s += a[i];
end;
if s > 0 then Writeln('Сумма элементов: ', s)
else Writeln('Нет числа 4');
end.
Тестовое Решение
Введите длину массива:
4
Введите значения элементов массива
a[1]=5
a[2]=3
a[3]=4
a[4]=4
Сумма элементов: 8
first_list = input().split()
second_list = [n for n in first_list if n == '4']
if len(second_list) != 0:
amount = 0
for i in second_list:
amount += int(i)
print(amount)
else:
print('в массиве нет числа "4" .')
Код Pascal
const
nmax = 100;
var
a: array[1..nmax] of integer;
i: byte;
n, m, s: integer;
begin
Writeln('Введите длину массива: ');
Read(n);
Writeln('Введите значения элементов массива');
for i := 1 to n do
begin
write('a[', i, ']=');
read(a[i]);
if a[i] = 4 then s += a[i];
end;
if s > 0 then Writeln('Сумма элементов: ', s)
else Writeln('Нет числа 4');
end.
Тестовое Решение
Введите длину массива:
4
Введите значения элементов массива
a[1]=5
a[2]=3
a[3]=4
a[4]=4
Сумма элементов: 8