A. Петины Финансы Ограничение времени:1 секунда

Ограничение памяти:64Mb

Ввод:finance.in

Вывод:finance.out

Петя решил организовать учет своих денежных трат в течение двух первых недель месяца. Для этого он по итогам каждого дня записывал в блокнот день и сумму в рублях, затраченную в этот день. Напишите программу, определяющую какую самую маленькую сумму за один день истратил Петя.

Формат ввода

Входной файл finance.in содержит 14 строк - по одной на каждый день. После каждого номера дня через пробел следует целое неотрицательное число, не превышающее 5000. Это сумма в рублях, затраченная Петей за день.

Формат вывода:В файл finance.out выведите ответ к задаче.

я надеюсь ты не будешь против, если я буду кидать всю программу

пишу на python

                       №1

#array заполнен по условию

even = 0

odd = 0

for elem in array:

        if elem % 2 == 0:

                 even += 1

        else:

                 odd += 1

print(even, odd)

                      №2

a)

Red Blue Yellow Purple

Red Blue Purple Yellow

Blue Red Purple Yellow

б)

for i in range(len(array)):

              for j in range(len(array) - 1):

                             if array[j] > array[j + 1]:

                                      array[j], array[j + 1] = array[j + 1], array[j]

print(*array)

                              №3

k = int(input())

array = array[:k] + array[k + 1:]

print(array)

Створіть проект, у якому вводяться значення елементів табличної величини із 7 цілих чисел у багаторядковому текстовому полі, обчислюється сума від’ємних з них і результат виводиться в напис. Збережіть проект у папці з іменем Завдання 6.2.1, створеній у вашій папці.

procedure TForm1.Button1Click (Sender: TObject);

var a: array [1..8] of integer;

i, s: integer;

begin

for i: = 1 to 7 do a[i]:= StrToInt(Memo1.Lines[i - 1]);

s:= 0;

for i:= 1 to 7 do if a[i] < 0 then s:= s + a[i];

Label1. Caption: = IntToStr(s);

end;

2. Створіть проект, у якому вводяться значення елементів табличної величини з 8 дійсних чисел у багаторядковому текстовому полі, визначається кількість з них, які більші за 5, і результат виводиться в напис. Збережіть проект у папці з іменем Завдання 6.2.2, створеній у вашій папці.

procedure TForm1.Button1Click (Sender: TObject);

var a: array [1..8] of real;

i, k: integer;

begin

for i:= 1 to 8 do a[i]:= StrToFloat(Memo1.Lines[i - 1]);

k:= 0;

for i:= 1 to 8 do

if a[i] > 5 then k:= k + 1;

Label 1.Caption:= IntToStr(k);

end;