Нужны коментарии к задаче

[seme4ki]

Здравствуйте, вот решение задачи

Var a: array[1..100] of integer;
i,sum: integer;
Begin
for i := 1 to 100 do a[i] := random(200)-100;
for i := 1 to 100 do
if a[i] < 0 then sum := sum+1;
WriteLn('В массиве ', sum,' отрицательных чисел');
WriteLn('Элементы кратные 2:');
for i := 1 to 100 do
if a[i] mod 2 = 0 then WriteLn('a[',i,']=',a[i],' кратен 2');
End.

пожалуйста, напишите комментарии к каждой строчке, заранее спасибо.

[alex_fcsm]

Var a: array[1..100] of integer;{целочисленный массив из 100 элементов}
              i,sum: integer;
Begin
for i := 1 to 100 do a[i] := random(200)-100; {инициализация матрицы функцией random}
sum:=0;
for i := 1 to 100 do
if a[i] < 0 then sum := sum+1;{подсчитываем количество отрицательных чисел}
WriteLn('В массиве ', sum,' отрицательных чисел');
WriteLn('Элементы кратные 2:');
for i := 1 to 100 do
if a[i] mod 2 = 0 then WriteLn('a[',i,']=',a[i],' кратен 2'); {выводим все элементы кратные 2}
End.