Дан массив всех целых чисел .Найти сумму элементов в массиве. (Паскаль)

uses crt; var i,count:integer; a:array[1..20] of integer; begin randomize; count:=0; for i:=1 to 20 do a[i]:=random(6)+1; for i:=1 to 20 do begin count:=count+a[i]; write(a[i],' '); end; writeln; writeln(' count = ', count); readln; end.

Решение #1 var a:array[1..10] of integer; i,s:integer; begin s:=0; for i:=1 to 10 do read(a[i]); for i:=1 to 10 do s:=s+a[i]; Writeln(s); end.   В этом решении вводится 10 целых чисел, и считается их сумма. Пример Ввод 1 2 3 4 5 6 7 8 9 10 Вывод 55   Решение #2 var a:array[1..1000] of integer; i,s,N:integer; begin read(N); s:=0; for i:=1 to N do read(a[i]); for i:=1 to N do s:=s+a[i]; Writeln(s); end.   В этом решении сначала вводится N - количество элементов в массиве затем сам массив и выводится ответ Пример Ввод 8 1 2 3 4 5 6 7 8 Вывод 36   Решение #3 var a:array[1..10] of integer; s,i:integer; begin s:=0; for i:=1 to 10 do begin randomize; a[i]:=random(2001)-1000 write(a[i],' '); end; for i:=1 to 10 do s:=s+a[i]; writeln; writeln(s); end.   В этом решении программа сама генерирует массив из 10 чисел в который входят числа от -1000 до 1000 пример Ввод   Вывод 0 5 851 -1000 999 515 66 -786 -55 545 1140   Вопросы, недочеты в ЛС