[Pascal]Сумма элементов одномерного массива

Интересно, в чем же нюанс?
for (i=0;i<100;i++) // while(i<100)
{ // begin
sum=sum+array; // sum:=sum+array; inc(i);
} // end
printf("%i",sum); // writeLn(sum);

Это , правда на Си....
Но задача настолько тривиальна, что на Паскале реализуется простой заменов соответствующих символов на паскуальные...
Я просто боюсь ошибиться -- давно уже с паскалем не сталкивался

Стоп, стоп,стоп!
А ты проверял ответ?
то, что ты написал, переводится на рус.яз так:
сложить первый эл-т массива м2 с вторым эл-том массива м2 и т.д.
Это ведь не то, что ты хотел сделать?
Или я не понял, что значит "каждые 20 элементов первого массива объединил в один элемент".... объеденил в 1 эл-т КАКОГО ТИПА?
если ты просто сложил, и в м2 у тебя real значения, то что тебе мешало сразу сложить все 100?
Или как-то иначе?

...
var a:array[1..10] of real; {Объявляем массив}
Summ:real'; {Сумма всех элементов массива}
i:integer; {Параметр цикла For}

Begin

{Заполняем массив числами}

For i:=1 to 100 do begin
write('Введи элемент массива: [',i,'] ');
readln(a);
end;

Summ:=0; {Обнуляем нашу сумму}

For i:=1 to 100 do
Summ:=Summ+a;

write('Сумма всех элементов массива=',Summ);
readln;
End.