===== PascalABC.NET =====
begin
var a := ReadArrInteger('a:', 10);
var b := ReadArrInteger('b:', 10);
var L := new List<integer>;
var (m, im) := (a[0] * b[0], 0);
for var i := 1 to a.High do
begin
var c := a[i] * b[i];
if c > m then
begin
L.Clear;
L.Add(i);
(m, im) := (c, i)
end
else if c = m then
L.Add(i);
end;
foreach var i in L do
Println(i + 1, a[i], b[i], a[i] * b[i] / 2)
end.
Using System;
public class MainClass
{
public static void Main()
{
Console.Write("Введите количество элементов массива: ");
int size = Convert.ToInt32(Console.ReadLine());
int[] a = new int[size];
for (int i = 0; i < size; i++) {
Console.Write($"[{i}] = ");
a[i] = Convert.ToInt32(Console.ReadLine());
}
int prev = a[0];
for (int i = 1; i < size; i++) {
if (a[i] <= prev) {
Console.WriteLine("Последовательность не возрастающая");
return;
} else {
prev = a[1];
}
}
Console.WriteLine("Последовательность возрастающая");
return;
}
}
Так как результат вычислений надо получить в десятичной системе счисления, то переведем все числа, которые нам даны, в десятичную систему счисления. Затем найдем значение выражения, как принято в математике.
А вот мой жираф :DD
.........................
Ответ-50.
Программа с помощью которой я это вычислил [Pascal].
program abc;
var sum,i,k,n:longint;
a,b:array[1..200]of longint;
begin
for n:=1 to 200 do A[n]:= n+100;
for n:=1 to 200 do begin B[n]:= 2*A[n]-500;
if b[n]>0 then k:=k+1; end;
write(k);
end.