Sub Calculate()
Dim coll As Collection
Dim i As Integer
Dim sum As Double
Dim negative As Integer
Dim composition As Integer
negative = 0
composition = 1
Set coll = New Collection
sum = 0
n = CInt(InputBox("Введите количество чисел", "Ввод", "", 2000, 2000))
For i = 1 To n
elmnt = CInt(InputBox(i & " число", "Ввод", "", 2000, 2000))
coll.Add elmnt
sum = sum + elmnt
Next i
For i = 1 To coll.Count
If (coll.Item(i) < 0) Then
negative = negative + 1
End If
If (coll.Item(i) Mod 2 = 1) Then
composition = composition * coll.Item(i)
End If
Next i
MsgBox "Количество отрицательных = " & negative & vbCrLf & "Произведение нечетных = " & composition & vbCrLf, vbOKOnly, "Результаты"
End Sub
В 2 минутах 120 секунд, вычислим размер искомого файла, умножив скорость передачи файла через это соединение на время передачи:
5000/120 * 48 = 2000
Недостающий фрагмент:
k:=0;
for i:=1 to N-1 do
if ((a[i] + a[i+1])>0) and ((a[i] + a[i+1]) mod 2 = 1) then begin
k:=k+1;
end;
writeln(k);
Разбор:
k:=0; // переменная для подсчет количества пар элементов.
for i:=1 to N-1 do // запускаем цикл до N-1, чтобы в последнем цикле не было сбоев.
if ((a[i] + a[i+1])>0) and ((a[i] + a[i+1]) mod 2 = 1) then begin // находим нужную нам пару элементов с помощью условия. Как только находим:
k:=k+1; // увеличиваем переменную, то есть прибавляем уже к имеющемуся количеству пар еще одну.
end; // Конец цикла
writeln(k); // выводим на экран количество пар
Смотри на фото. Там ответ.