Help задача на языке ПАЙТОН

1.

program n1;

var

k, s: integer;

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

begin

for k := 1 to 8 do readln(a[k]);  // с клавиатуры вводится массив из 8

s := 0;                                           элементов

for k := 1 to 8 do

if a[k] < 0 then s := s + a[1];  // в цикле 4 раза к s прибавляют 1-ый элемент

writeln(s);                             // выводится s

end.

ответ: 4(т.к 1-ый элемент массива 1 и в нём 4 отрицательных элемента)

2.  

Надо строку if a[k] < 0 then s := s + a[1];

Заменить на строку if a[k] < 0 then s := s + a[k];

Объяснение:

Const int neededInputs = 8;
try
{
    int counterNegativeNumbers = 0;
    int counterInLoop = 0;
    while (counterInLoop < neededInputs)
    {
        Console.WriteLine("Type a number, please ");
        int number = Int32.Parse(Console.ReadLine());
        if(number < 1)
            counterNegativeNumbers++; 
        counterInLoop++;
    }

    Console.WriteLine(String.Format("You`ve written {0} negative or zero numbers", counterNegativeNumbers));
}
catch(FormatException ex)
{
    Console.WriteLine("Invalid format of the number");
}