Одномерные массивы

[VladimirAvakov]

Всем привет. Дано задание:

Даны натуральное число n и действительные a1,…,an, где n≤3000. Получить удвоенную сумму всех положительных членов последовательности a1,…,an.

Вот мне помогли решить:

const
  nmax = 3000;

var
  a: array[1..nmax] of integer;
  n, i: integer;
  s: longint;

begin
  repeat
    write('Введите размер массива n (n <= 3000): N=');
    readln(n);
  until (n > 0) and (n <= 3000);
  s := 0;
  writeln('Массив:');
  for i := 1 to n do
  begin
    a[i] := random(19) - 9;
    write(a[i]:4);
    if a[i] > 0 then s := s + a[i];
  end;
  writeln;
  writeln('Удвоенная сумма положительных элементов: S=', s * 2);
end.

Но поскольку я новичок и чайник в Паскале, помогите мне, распишите мне каждую строчку зачем она и почему. Заранее огромное спасибо

[Stilet]

Это описание констант
const
Константа, которая будет указывать граничное число, до которого программа будет вести отсчет
  nmax = 3000;

Это раздел переменных
var
Описание массива до граничного числа
  a: array[1..nmax] of integer;
И вспомогательных переменных
  n, i: integer;
  s: longint;

begin
Вводим размер массива. Если он не попадает в заданный по условию диапазон
Вводим заново
  repeat
    write('Введите размер массива n (n <= 3000): N=');
    readln(n);
  until (n > 0) and (n <= 3000);
  s := 0;

Потом проходим циклом по массиву до введенного кол-ва
  writeln('Массив:');
  for i := 1 to n do
  begin
Забиваем в массив случайные числа от -9 до... 10 кажись...
    a[i] := random(19) - 9;
Выводим полученное
    write(a[i]:4);
Если оно положительное - суммируем
    if a[i] > 0 then s := s + a[i];
  end;
  writeln;
Выводим итоговую сумму умноженную на два
  writeln('Удвоенная сумма положительных элементов: S=', s * 2);
Все.
end.

[HedgehogLu]

символов комментариев нету, видимо чтобы при копипасте не компилилось