Вычислить сумму пяти целых чисел, которые являются массивом. (pascal)

Const
   N = 5;
Var
   A:array[1..N] of integer;
   i:integer;
   S:real;
Begin
S:=0;
Write('Введите пять целых чисел: ');
For i := 1 to N do
    Begin
    Read(A[i]);
    S:=S+A[i]
    End;
WriteLn('S = ',S);
ReadLn
End.

Const eps=1e-8;
var a,b,c:real;
      s1,s2,s3:integer;
begin
read(a);
read(b);
read(c);
if a>0 then s1:=s1+1;
if b>0 then s1:=s1+1;
if c>0 then s1:=s1+1;
if a<0 then s2:=s2+1;
if b<0 then s2:=s2+1;
if c<0 then s2:=s2+1;
if frac(a)<eps then s3:=s3+1;
if frac(b)<eps then s3:=s3+1;
if frac(c)<eps then s3:=s3+1;
writeln('Число положительных чисел = ',s1);
writeln('Число отрицательных чисел = ',s2);
writeln('Число целых чисел = ',s3);
end.

/* Для подсчета целых чисел использовалась функция frac - она возвращает дробную часть числа. При сравнении дробных чисел полезно отсекать разряды после скажем 8 знака после запятой, что и было сделано путем введения константы eps . */

a = float(input(' 1-го судьи: '))

b = float(input(' 2-го судьи: '))

c = float(input(' 3-го судьи: '))

d = float(input(' 4-го судьи: '))

e = float(input(' 5-го судьи: '))

f = float(input(' 6-го судьи: '))

g = float(input(' 7-го судьи: '))

h = float(input(' 8-го судьи: '))

i = float(input(' 9-го судьи: '))

j = float(input(' 10-го судьи: '))

all_balls = []

all_balls.append(a)

all_balls.append(b)

all_balls.append(c)

all_balls.append(d)

all_balls.append(e)

all_balls.append(f)

all_balls.append(g)

all_balls.append(h)

all_balls.append(i)

all_balls.append(j)

max_ball = max(all_balls)

min_ball = min(all_balls)

ball_sred = (max_ball + min_ball) / 2

print(f'Ваша оценка: {ball_sred}')

Объяснение: