Определите в ячейке С7 2 цифра больше из чисел находящихся в ячейке А1: А6 и

Притянуто "за уши", но такое уж задание несуразное. Видимо, для старых версий языка.

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

function Summa(a:array of integer):=a.Sum;

begin
  var a:=ArrRandom(10,-99,99); a.Println; Writeln;
  var b:=ArrRandom(20,-99,99); b.Println; Writeln;
  var c:=ArrRandom(30,-99,99); c.Println; Writeln;
  Writeln('S=',Summa(a)+Summa(b)+Summa(c))  
end.

Пример
53 34 13 64 79 28 -98 -43 -19 23

96 -18 48 61 -70 -16 92 0 27 65 -68 -17 -77 90 -13 69 46 85 71 -44

-21 65 -56 31 56 25 37 50 -35 52 91 -94 12 -98 -51 -73 6 -31 -7 -32 35 -88 -53 63 -93 -29 11 22 -23 -89

S=244

Я так понимаю, массив должен быть заполнен случайными числами? Если нет - отпишите в комментариях, скину код, где элементы массива вводятся с клавиатуры
При копировании кода из IDE на сайт автоматически убирается перенос строки. Будет прикреплен скриншот с тем, как должен выглядеть код

#include <stdlib.h>#include <stdio.h>#include <locale.h>
void main(){ setlocale(LC_ALL, "RUSSIAN"); int mas[11], i, ad, ben; ad = 0; ben = 0; srand(8120); for (i = 1; i <= 10; i++) //цикл заполнения массива случайными числами mas[i] = rand() % 200 - 100; for (i = 1; i <= 10; i++) //цикл вывода массива на экран { printf("%2d ", mas[i]); if (i % 5 == 0)printf("\n"); } for (i = 1; i <= 10; i++) // цикл подсчета количества отрицательных и положительных элементов массива { if (mas[i] > 0)ben++; if (mas[i] < 0)ad++; } printf("\n Количество положительных чисел: %2d", ben); printf("\n Количество отрицательных числе: %2d", ad); printf("\n\n"); system("pause");}