Как прогнать цикл из всех чисел и сравнить их с максимумом)
удалить максимальное число?

PROGRAM ThreeSequences(INPUT, OUTPUT);
VAR
 Number: ARRAY[1 .. 3, 1 .. 10] OF INTEGER;
 ArithmeticAverage: ARRAY[1 .. 3] OF INTEGER;
 I, J: INTEGER;  
BEGIN {ThreeSequences}
 Randomize;
 {Генерирует 3 последовательности по 10 случайных чисел}
 FOR I := 1 TO 3
 DO
   FOR J := 1 TO 10
   DO
     Number[I][J] := Random(10) + 1;
 {Выводит последовательности и считает среднее арифметическое}
 FOR I := 1 TO 3
 DO
   BEGIN
     WRITE('Sequences: ');
     ArithmeticAverage[I] := 0;
     FOR J := 1 TO 10
     DO
       BEGIN
         WRITE(Number[I][J]:3);
         {Складывает все числа последовательности}
         ArithmeticAverage[I] := ArithmeticAverage[I] + Number[I][J];
       END;
     WRITELN;
     {Делит на количество чисел последовательности}
     ArithmeticAverage[I] := ArithmeticAverage[I] DIV J;
     WRITELN('ArithmeticAverage: ', ArithmeticAverage[I]);
   END;
END. {ThreeSequences}

Смотря для какого тебе языка надо, вот для VisualBasic

Sub Neskolko_Chisel

Dim Sum, i, a, N As Integer

N = InputBox("Введите количество чисел")

For i = 1 to N

a = InputBox("Введите число")

Sum = Sum + a

Next i

End Sub

вот для с++

#include <iostream>
#include <conio.h>
using namespace std;

int main()
{
setlocale(LC_ALL, "Russian");

int a, N, Sum, i;
Sum = 0;
N = 0;
a= 0;
cout << "Введите количество чисел! ";
cin >> N;

for (i = 1; i <= N; i++)
{
cout << "Введите число!" ;
cin >> a;
Sum = Sum + a;
}
cout << Sum;

_getch();
}