Код 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
Первая задачка.
Набрать кувшин 8 л.
Отлить 3 л во второй.
Вылить из него.
Из оставшихся 5 л в большом опять налить в маленький.
Вылить из него.
Остатки 2 л из большого налить в маленький.
Получится пустой большой и маленьки с 2 л.
Набрать снова полный большой.
Долить в маленький недостающий 1 л до трех.
В большом останется 7 л.
Вторая задачка решается аналогично.
Ставятся песочные часы и на 3 мин и на 8 мин
одновременно. Через 3 мин. маленькие часы
переворачиваются, большие продолжают работать,
таме ще 5 мин. Еще через 3 мин маленькие
переворачиваются, большие продолжают работать,
там еще 2 мин. Через 2 мин большие опустошились
и переорачиваются, а в маленьких еще 1 мин.
Через 1 мин маленькие опустошаются, а в
больших еще 7 мин. В это время включается варево.
Когда большие часы опустошились мин,
варево выключается.
Элекиср бессмертия готов.
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" .')